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NOMENCLATURE 

Dose  angular  distribution  defining  constant. 

Chilton-Huddleston  albedo  defined  by  eq.(7l). 

Dose  rate  albedo  defined  by  eq.f79). 

Build-up  factor  constant. 

Least-squares  constant . 

Christoffel  numbers. 

b         Build-up  factor  constant. 

b1         Least- squares  constant . 

B         Dose  build-up  factor  for  a  point  isotropic  source  defined  by 
eq.(16). 

c  Degree  of  Gaussian  quadrature  for  the  emergent  azimuthal  angle. 

C,C  Chilton-Huddleston  albedo  constants. 

d  Height  of  ceiling  above  contaminated  plane,  feet. 

D.  Incident  dose  rate  at  (x,y),  roentgens/hour . 

D        Dose  rate  at  the  standard  unprotected  position,  roentgens/ 
hour. 

D         Reflected  dose  rate  at  (x,y),  roentgens/hour. 
r 

E         Reflected  energy  in  a  single  Compton  scattering  defined  in 
eq.(74),  MeV. 

Ej  Exponential  function  of  the  first  order. 

Eg  Exponential  function  of  the  second  order. 

E  Incident  gamma  ray  energy,  MeV. 

E '  Average  ene rgy  of  the  re fleeted  gamma  ray ,  MeV . 

f.         Zeroes  of  the  Legendre  Polynomials  for  the  Incident  azimuthal 
angle  variable . 

F         Uncollided  flux  from  an  isotropic  distributed  source  defined 
u 

in  eq.(l4),  photons/sec. 


g        Zeroes  of  the  Legenrlre  Polynomials  for  the  incident  polar  angle 
variable. 

h        Zeroes  of  the  Legendre  Polynomials  for  the  emergent  polar 
angle  variable. 

h'        Zeroes  of  the  Legendre  Polynomials  for  the  y  co-ordinate  of 
the  ceiling. 

H        Distance  between  ceiling  and  horizontal  centerline  of  aperture, 
feet. 

j  Degree  of  Gaussian  quadrature  for  the  incident  polar  angle. 

j'  Azimuthal  angular  limit  constant  utilized  in  eq.(68). 

k  Degree  of  Gaussian  quadrature  tor  the  incident  azimuthal  angle. 

k'  Polar  angular  limit  constant  utilized  in  eq.(68). 

K        Ratio  of  Compton  scattering  energies  multiplied  by  the  Klein- 
Nishina  cross  section  defined  by  eq.(23). 

m        Degree  of  Gaussian  quadrature  for  the  emergent  polar  angle. 

n        Degree  of  least-squares  analysis. 

N        Degree  of  Gaussian  quadrature  used  in  Appendix  F, 

p        Ratio  of  emergent  to  incident  energies  in  a  single  Compton 
scattering  process. 

P        Probability  that  a  photon  of  certain  energy  incident  on  a  sur- 
face at  a  given  angle  will  emerge  from  that  surface  into  a 
certain  solid  angle. 

r        Radial  variable  in  plane  surface  source  geometry,  feet  (see 
Figure  5). 

R        One-half  aperture  width,  feet  (see  Figure  3). 

R'        Build-up  distance  variable,  feet. 

R        Distance  variable  between  contaminated  plane  and  position 
(x,y)  on  ceiling,  feet  (see  Figure  5). 

R'        Classical  radius  of  electron  defined  by  eq.(73),  cm. 

s        Zeroes  of  Legendre  Polynomials  for  the  emergent  azimuthal 
angle  variable. 

s'        Zeroes  of  Legendre  Polynomials  for  the  x  co-ordinate  of  the 
ceiling. 
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Plane  source  gamma  ray  intensity,  photons/cm2 -  sec . 

Differential  scattered  dose  rate  defined  by  eq.(68),  keV./ 
gm. -sec . 

Thickness  of  concrete  floor  slab,  feet  (see  Figure  3). 

Integration  variable. 

One-half  aperture  height,  feet  (see  Figure  3). 

Dose  angular  distribution  proportionality  constant  defined 
by  eq.(64) . 

Celling  rectangular  co-ordinate  parallel  to  plane  of  the 
aperture;  x  =  0  is  at  the  vertical  centerline  of  the  aperture, 
feet  (see  Figure  3). 

Detector  rectangular  co-ordinate  parallel  to  plane  of  the 
aperture;  xx  =  0  is  at  the  vertical  centerline  of  the  aperture, 
feet, 

Half-width  of  structure  measured  parallel  to  aperture  plane, 
feet. 

Celling  rectangular  co-ordinate  perpendicular  to  plane  of  the 
aperture;  y  =  0  is  at  aperture  plane,  feet. 

Detector  rectangular  co-ordinate  perpendicular  to  plane  of 
the  aperture;  yy  -  0  is  at  aperture  plane,  feet. 

Total  length  of  structure  measured  perpendicularly  from  the 
aperture  plane,  feet. 

Perpendicular  distance  measured  positive  downwards  from  ceil- 
ing, feet. 

Energy  linear  macroscopic  gamma  ray  absorption  coefficient  for 
air,  cm"1. 

Energy  mass  macroscopic  gamma  ray  absorption  coefficient  for 
air,  cm2/gm. 

Solid  angle,  steradians. 

Emergent  azimuthal  angle,  radians  (see  Figure  3). 

Total  change  In  azimuth  between  direction  of  incident  and 
emergent  gamma  rays  defined  by  eq.(25),  radians. 

Incident  azimuthal  angle,  radians. 

Azimuthal  limits  of  aperture,  radians  (see  Figure  3). 
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<t>  ,0.     Azimuthal  angular  intervals,  radians. 

p         Distance  between  position  (x,y)  on  the  ceiling  and  position 
(xx,yy,zz)  of  the  detector  defined  by  eq.(29). 

2        General  total  linear  macroscopic  gamma  ray  absorption  coefficient, 
cm   . 

T,  Total  linear  macroscopic  gamma  ray  absorption  coefficient  for 


a 


air  at  standard  temperature  and  pressure,  cm"  . 


S  Total  linear  macroscopic  gamma  ray  absorption  coefficient  for 
concrete,  cm"  , 

0  Emergent  polar  angle,  radians  (see  Figure  3). 

8  Incident  polar  angle,  radians  (see  Figure  3). 

©l'Gfe  Polar  limits  of  aperture,  radians  (see  Figure  3). 

0,  ,G,  .        Polar  angular  intervals,  radians. 

©  Total  scattering  angle  defined  by  eq.(24),  radians. 


1.0   INTRODUCTION 

The  increasing  scale  of  nuclear  explosive  testing  in  various  parts 
of  the  world  has  led  to  considerable  public  concern  over  the  effects  of 
fallout  radiation.  This  concern,  because  of  the  ever-present  possibility 
of  International  nuclear  conflict,  has  led  to  public  and  private  interest 
in  the  ability  of  existing  or  proposed  structures  to  offer  protection  by 
shielding  from  the  effects  of  the  fallout  radiation. 

Methods  are  presented  in  the  various  design  and  analysis  procedures 
presently  available  for  estimating  the  direct  dose  rate  contributions 
resulting  from  radiation  entering  structures  through  apertures  (1,2,3). 
However  no  methods  are  available  for  estimation  of  the  ceiling  scattered 
dose  rate  portion  of  this  contribution.   This  contribution  is  specifically 
classified  as  a  ceiling  shine  problem  and  more  generally  as  a  vent  problem. 
The  necessity  for  additional  research  on  this  problem  is  further  exemplified 
by  the  following  statement  made  August  3,  1962  by  Dr.  L.  V.  Spencer,  the 
leading  theoretician  in  the  field  of  structure  shielding  against  fallout 
radiation  (4):   "So  far  as  I  know,  no  systematic  investigations  have  been 
made  of  ceiling  shine  resulting  from  radiation  which  enters  through  a  vent 
in  one  of  the  vertical  walls  of  a  building.   I  think  this  type  of  problem 
is  currently  the  most  important  vent  problem." 

The  intent  of  this  thesis  was  to  undertake  a  systematic  analytical 
investigation  of  this  problem  utilizing  the  IBM-1620  computing  facilities 
available  at  the  Kansas  State  University  Computing  Center.   FORTRAN  II 
programming  was  utilized  throughout  the  study. 
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The  study  was  idealized  to  make  It  compatible  with  the  Kansas  State 
University  Nuclear  Engineering  Shielding  Facility  blockhouse.  This 
structure  will  hereinafter  be  called  the  KSU  bloclhouse.   A  blockhouse 
Is  a  very  elementary  type  of  structure,  consisting  merely  of  a  building 
with  four  walls  and  a  slab  roof,  This  study  considers  such  a  structure 
with  a  single  window  centered  horizontally  but  not  necessarily  vertically 
in  one  of  the  walls.  The  plans  for  the  KSU  blockhouse  are  given  on 
Figure  1. 

The  assumption  was  made  that  the  fallout  was  uniformly  distributed 
horizontally  over  exposed  surfaces.  This  is  a  standard  assumption  made 
in  virtually  all  treatments  of  structure  shielding  against  fallout  radi- 
ation (1,  2,  3,  4). 

It  is  not  desirable  or  realistic  to  determine  the  absolute  radiation 
intensity  inside  a  structure  since  this  changes  so  rapidly  following  a 
fallout  producing  event.   Rather,  it  is  desirable--customary  in  the  past 
few  years--to  measure  the  radiation  protection  afforded  by  a  given  structure 
In  terms  of  a  "standard  unprotected  position,"  The  ratio  of  the  dose  rate 
at  a  given  position  in  a  structure  to  the  dose  rate  in  the  unprotected 
position  is  commonly  called  (1,  2,  3,  4)  the  "reduction  factor."  The 
standard  unprotected  position  was  formerly  chosen  to  be  a  few  feet  above 
a  large,  fallout  contaminated  field.   However,  difficulties  arose  in 
theoretically  determining  the  absolute  radiation  level  in  such  a  location. 
The  standard  unprotected  position  is  presently  defined  to  be  a  detector 
location  three  feet  (in  dry  air  at  76  cm.  Hg.  pressure  and  20  C)  above  a 
hypothetical  source  of  the  same  character  as  the  fallout  on  the  ground. 
This  fallout  is  presumed  to  lie  on  a  perfectly  smooth,  infinite  plane. 
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The  ground  is  assumed  to  be  replaced  by  compressed  air  of  the  same  density 
in  order  to  make  possible  an  accurate  theoretical  analysis.  This  replace- 
ment of  ground  with  compressed  air  is  an  adequate  model  (I).  The  refer- 
ence dose  rate  can  be  calculated  to  within  two  to  three  percent  accuracy, 
given  the  spectrum  and  strength  of  the  gamma  rays  emitted  per  unit  area  of 
the  fallout  field.  The  accepted  value  of  the  reference  dose  rate  for  a 
plane  contaminated  with  one  curie/ft2  of  cobalt-60  is  485  roentgens  per 
hour  (5). 

Radioactive  fallout  consists  of  both  fission  fragments  and  neutron 
activated  materials.  The  fission  fragments  contribute  about  957.  of  the 
total  radioactivity  at  one  hour  after  a  fission  explosion  (5).  The  fall- 
out material  does  not  emit  neutrons.  There  will  be  a  spectrum  of  fallout 
energies  varying  with  time  since  the  fission  material  alone  may  contain 
as  many  as  200  radioactive  nuclides,  each  decaying  at  its  own  rate.   A 
different  spectrum  can  thus  be  considered  to  be  in  existence  at  different 
times  after  fission.  The  differences  between  these  spectra  become  signifi- 
cant however,  only  when  considering  extreme  penetrations  into  matter  (1). 
Thus  a  "standard"  spectrum  could  be  chosen  assuming  that  it  is  a  "hard" 
spectrum  prevalent  at  a  time  that  the  fallout  radiation  has  a  high  intensity. 
The  1.12  hour  U-235  fission  spectrum  (6)  was  chosen  to  be  this  standard 
spectrum.  This  spectrum  (4)  is  represented  in  Figure  2.  The  height  of 
each  box  in  Figure  2  is  proportional  to  the  energy  content  of  gamma  rays 
in  the  energy  interval,  the  sum  of  the  ordinates  being  unity.  The  two 
arrows  in  Figure  2  are  positioned  at  the  energies  of  the  gammas  given  off 
by  cobalt-60.  This  isotope  is  used  in  most  of  the  fallout  field  experi- 
ments- to  simulate  the  standard  fission  spectrum.  The  arithmetic  average 
energy  of  the  cobalt-60  gammas,  1.252  Mev,  was  assumed  to  be  the  standard 
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<t>  =  tan"l{(x-xx)/(y-yy)}  +  n .  (31) 

The  plane-source  strength  of  gamma  radiation  is  converted  to  a  point- 
source  strength  of  gamma  radiation  by  integrating  eq.(27)  over  a  dA 
of  the  ceiling.  The  differential  dose  received  by  an  isotropically 
responding  differential  detector  located  at  (xx.yy.zz)  is 

D(xx,yy,zz;e,<I>)psined<t>pde  =  m  (x,y,e,<I>)sined0d<I>dA.  (32) 

V 

Dividing  both  sides  of  eq.(32)  by  p2 ,  multiplying  the  right  side  by 

the  build-up  factor  and  the  material  exponential  attenuation  factor 

and  integrating  over  the  ceiling  results  in  an  expression  for  the  total 

dose  rate  in  any  position  of  the  blockhouse  resulting  from  aperture- 

collimated,  ceiling  scattered  radiation. 

D(xx,yy,zz)  =  (1.293D  /2n)rraax[  raaxf'    (0. 1917+0. 0095cos9  ) 

°        Jo      J0      VOi 

xfl+   a'2   (E    )d   exp(bS  (E    )d/cos9  )]exp(-2   (E    )d/cos9  )fcK(G   )+C'} 
*■  ao  a     o  o  J  a     o  o  *■  s  J 

xf  1  +  a'(2  (E')(p-t/cos0)-2   (E')t/cose)   exp(b(2  (E1  )(p-t/cos6)  (33) 

fc  a  r  c  a  r 

-X  (E')t/cose))}{exp(2:  (E')(p-t/cos9)-Z  (E' )  t/cose)}"1{p2(cosG0 

+cos6)]"1sinB  6Q  d4>  dydx. 
J      o  o  o 

This  equation  was  integrated  numerically  on  the  digital  computer. 

2.2  Transformation  of  Integrals  for  Computer  Utilization 

An  IBM  1620  digital  computer  with  a  60,000  digit  memory  was  utilized 
for  machine  computations.   FORTRAN  II  language  was  used  throughout. 

The  approximation  technique  known  as  Gaussian  quadrature  (19)  was 
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employed  to  integrate  numerically  the  equations  in  the  Section  2.1.  This 
technique  is  discussed  and  its  accuracy  is  checked  in  Appendix  F.  Gauss' 
mechanical  quadrature  formula  is 


r1  N 

J  f (x)dx  =  2 


a,f(x,)  (34) 

k=lk   * 

vhere  a,  are  the  Christoffel  Numbers  and  x,  are  the  zeroes  of  the  Legendre 

Polynomials.  Eq.(34)  is  exact  if  f(x)  is  a  polynomial  of  degree  2N- 1  or 

less.   Values  of  x,  and  a,  for  values  of  N  through  6  are  tabulated  in 

Reference  15  and  are  presented  In  Table  1 2. 

2.2.1.  Differential  Incident  Dose  Rate 

The  differential  incident  dose  rate  at  point  (x,y)  of  the  ceiling 
is  given  by  eq.(9)  with  a  build-up  term  added  per  the  previous  discussion. 
The  term 

(0. 1917+0. 0095cos8  ){l+a'Z  (E  )d  exp(b2  (E  )d/cos©  )/cos8  ] 
o  *■     ao        a  o       o      oJ 

(35) 


x{2n  cos0  exp(-a/cos6  )]  Acos6  A4> 
*       o  o  J       o  o 


was  computed  at  a  given  (x,y)  for  56  equal  solid  angles  in  a  hemisphere 
for  radiation  incident  through  the  aperture.  Here  a  =  2d  as  previous. 
Each  solid  angle  division  is  equal  to  n/28  steradians.  The  geometry  and 
solid-angle  divisions  are  illustrated  in  Figure  6.  The  top  half  of  the 
hemisphere  in  Figure  6  lies  in  the  positive  x  plane  of  the  ceiling.  The 
midpoints  of  the  polar  angle  divisions  are  7.7°,  18.6°,  28.3°,  39.6°, 
49.8°,  59.9°,  71.1°  and  83.8°.  The  expression  indicated  in  (35)  was 
weighted  ty  the  fraction  of  each  solid  angle  division  subtended  by  the 
aperture.  This  fraction  was  determined  from  the  known  aperture  limits 
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Fig.    6,   Geometry   and    solid-angle  divisions   for   the 
differential   dose   rate   studies. 
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defined  in  eq.(l)  through  eq.(A),  The  computer  program  for  this  differ- 
ential incident  dose  rate  is  presented  and  discussed  in  Appendix  G. 

2.2.2.  Total  Incident  Dose  Rate 

The  total  incident  dose  rate  defined  by  eq.(20)  was  solved  by 
putting  it  in  the  Gaussian  quadrature  form  of  eq.(34).  That  is,  letting 

£k=  {Ook-eV^'^K  2/(«b  .*!) }  (36) 

thus  changes  the   limits  from  -1   to  +1.     Therefore 

«k=  (2/<W}<**ok  (37) 

and  eq.(20)   becomes 

Kmax 
D  (x,y)  =  {d  (4jj-0^)/4«t}y     {0.1917{E1(Sa(Eo)d/cos©ik)-E1(Za(E0)d/co8efek) 

k=l 
+  (a,/(l-b)){exp(-Sa(Ko)d(l-b)/cos©lk)   -   exp(-2a(Eo)d(l-b)/cos6fek)}} 

(38) 
+  0.0095{cosQlkE13(2a(Eo)d/coseik)-cosGtekE8(Sa(Eo)d/coBQ8k)  +  a'ZaCE0>d 

x{Ej(S  (EQ)d( l-b)/cosGik)-Ei(Sa(Eo)d( l-b)/cosgfek)}}]ak 


where 


&ik  =  tan     {y/(H+-V)cos(<l>  k-n))  (39) 


and 

-1 


6fek  =  tan     {y/(H-V)cos«I>  k-it)}.  (40) 

The  angle  4>  .    is  obtained  from  eq.(36)   for  different  values  of  f.  .     The 
angles  ty   and  <tfc   are  defined  by  eq.(l)   and  eq.(2).     The  computer  program 
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lor   this    total    incident   close   rate    is   presented    and   discussed    in   Appendix   1! 

2.2.3.    Differential   Reflected  Dose  Rate 

The  differential    reflected   dose   rate  was  determined   by  evaluation 
of   the  double   integral  of  eq.(27)    for  the   solid   angle  divisions  of  Figure 
6.    i.e., 

(1.293D  /2Tr)P         (0. 1917+0. 0095cos©  )fl+(a'Z  (E    )d 

°    Vet 

Xexp(bZa(Eo)d/coseo))/cose  ]eXp[-2  (E    )d/cos©}  (41) 

x[CK(9  )+C'l(cose  +cos8)      sir©  d©  dej)  . 
1  s  J  o  o     o     o 

The  <t>     limits  are  again  transformed   by  eq.(36)    and   eq.(37).      Letting  u     = 

co60  ,    then  the    limits  over  ©     are   transformed   by 
o  o 

g     =   {uq  -l.u1+us)/2}{2/(.us-u1)}  (42) 

and 


dg,   =   {2/(u8-L)1)}du    ..  (43) 


Expression  (41)  is  then  given  by 


K  K 

max  max 


[l.293(cJJ3-q\)Do/8n}£     ak("ik""2k'^     a. (0. 1917+0. 0095u) 
k=l  j=l 

x(l+(a'Sa(Eo)dexp(hEa(Eo)d/uo    ))/uq   ]exp{-Za(Eo)d/uo  }  (44) 

x{CK(es>+C']((j     +cosG)     AC 

-1  -i 

where  6i  =   cos     ul   and  Gfe  =  cos     us   are  given  by  eq.(39)    and  eq.(40), 

4>t   and  <tfe   by  eq.(l)    and  eq.(2)   and   the  AC  by   the  emergent   solid   angle 

(n/28  for  the  solid   angle  divisions  of  Figure  6).      Cos©       =  u        is 

oj  oj 
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obtained  from  eq.(42)  for  different  values  of  g..  A  description  and  dis- 
cussion of  the  computer  program  for  this  differential  reflected  dose  rate 
is  given  in  Appendix  J. 

2.2.4.  Total  Reflected  Dose  Rate 

The  total  reflected  dose  rate  at  the  point  (x,y)  is  given  by  eq.(28). 
The  0  and  0  limits  are  transformed  to  the  -1  and  +1  limits  by  eq.(36) 
and  eq.(42).   If  u  =  cos6,  then  du  =  -sin0d6  and  the  limits  on  u  go  from 
0  to  1.  This  can  be  transformed  to  the  desired  limits  by  the  relationships 

h  =  2(u  -1/2)  (45) 

m      m 

and 


dh  =  2du  .  (46) 

m      m 


The  $  transformation   is 


and 


Eq.(28)   becomes 


sc  =  ($c-n)/n  (47) 


ds„  =  d0>  /n.  (48) 


K  K         K  K 

max     max     max  max 

Dr(x,y)  =   {l.293(«h-«l)Do/16}  £    a  £    aj   ak  («lk-^k)£     Bj 

c=l    m=l    k=l  j=i 

X(0. 1917+0. 0095u    ,)exp(-2   (E    )d/u    .)(CK(G  )+C')[l+a'S  (E    )d  (49) 

oj  a     o  oj  s  *  q,     o 

xexp(bS  (E    )d/o    Vu   ,}    fu    ,+u  }      . 
a     o        oj      oy    l   oj     m> 
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Appendix  K  describes  and  discusses  this  total  reflected  dose  rate. 

2.2.5.  Total  Dose  Rate  at  Point  (xx.yy.zz) 

This  dose  rate  is  given  by  the  quadruple  integral  of  eq.(33).  The 
$o  and  BQ  limit  transformations  are  given  by  eq.(36)  and  eq.(42).  The 
x  transformation  is  obtained  from 

i 
8  =  x  /X  (50) 


c  max 


and 


da'  =  dx  /X  (51) 

M  c     c  max  "*' 

where  xmax  is  one-half  the  width  of  the  ceiling,  measured  parallel  to  the 
plane  of  the  aperture,  as  illustrated  in  Figure  3.  The  transformation  on 
the  y  limits  is 


(2y  -Y   )/Y  (52) 

m  max   max  »•**' 


and 


dh'  =  2dy  /Y  (  st) 

m     Jm     max  VJJ' 

where  Ymgx   is  the  length  of  the  ceiling,  measured  perpendicular  to 
the  plane  of  the  aperture,  as  illustrated  in  Figure  3. 

The  total  dose  rate  is  given  by  Eq.(54).   A  description  and  dis- 
cussion of  the  computer  code  for  this  total  dose  rate  is  given  in  Appendix 
L. 
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K  K  K 

max     max  max 


D( 


xx.yy.zz)  =   (l.lSK^^JX^IJI,/*]  £  «c  £  <«,>»>£  ^(Htt- 

K  c=l     m=l  k=l 

max 

"sk^  a. (0. 1917+0. 0095u   .)   fl+a'S  (E   )d   exp(b2  (E   )d/u    Jexp(-£  (E   ) 
«KLij  °j  ao  r        a     o  ojJ  a     o 

xd/uQ   )[cK(es)+C,}{l+a,(Sa(E')(p-t/cose)-Zc(E')t/cose)  (54) 

Xexp(b(S  <E')(p-t/cosG)-2  (E')t/cos6))}exp-[S   (E1  )(p-t/cos6) 

-X  (E')t/cos6]{u)    ,+cosG]      . 
c  oj 
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3.0  RESULTS  OF  CALCULATIONS 

3.1  Discussion  of   Results 

3.1.1  Albedos 

Albedos  are  discussed  rather  thoroughly  in  Appendix  B.  The 
differential  dose  rate  albedo  derived  in  this  appendix,  eq.(79),  was 
used  in  this  study  whenever  ceiling-shine  was  considered.   Such  an 
albedo  could  be  obtained  analytically  because  of  the  recent  development 
of  a  semi-empirical  formula  for  a  differential  dose  albedo  for  gamma  rays 
on  concrete  by  Chilton  and  Huddleston  (14).   A  comparison  between  the 
Chilton-Huddleston  formula  and  the  Monte  Carlo  results  of  Raso  (12)  is 
shown  in  Figure  22.   It  is  rather  difficult  to  obtain  an  accurate  estimate 
of  the  statistical  error  of  the  albedos.   It  can  be  seen  from  Figure  22 
that  the  biggest  discrepancies  appear  at  small  emergent  polar  angles  for 
total  azimuthal  changes  of  around  50  .  The  Chilton-Huddleston  formula  gives 
scattered  dose  rates  too  low  by  about  a  factor  of  two  from  Raso's  Monte 
Carlo  values  for  these  angular  regions.  This  is  unfortunate  as  it  leads 
to  non-conservative  dose  rates,  e.g.,  the  ceiling  scattered  dose  rates 
obtained  through  this  formula  could  give  dosages  of  one-half  the  "true" 
value.   It  should  be  emphasized  here  that  a  more  extensive  study  of  these 
results  should  be  made  before  more  general  conclusions  can  be  made.   The 
computer  code  listed  and  explained  in  Appendix  D  would  readily  produce 
data  for  additional  such  comparisons.   A  limited  amount  of  results  for  an 
incident  energy  of  1.252  MeV  are  tabulated  in  this  appendix  but  could  not 
be  readily  compared  with  Raso's  results  which  are  given  at  different 
energies. 

Only  a  very  crude  estimate  can  be  made  of  the  statistical  fluctuations 
of  Raso's  Monte  Carlo  results.   Raso  (12)  states  that  the  "statistical 
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percentage  errors"  could  be  roughly  estimated  to  be  inversely  proportional 
to  the  square  root  of  the  product  of  the  total  number  of  photons  back- 
scattered  by  5000  (the  number  of  histories  run)  divided  by  96  (since 
there  are  96  entries  per  table}.  The  number  albedo  for  the  parameters  of 
Figure  22  is  0.502.  This  results  in  a  statistical  percentage  error  of 
approximately  207.. 

It  would  be  more  accurate  if  the  Monte  Carlo  results  were  used 
directly  in  the  calculations.  This  would  require,  as  a  minimum,  an 
initial  linear  interpolation  between  the  approximately  500  values  in 
Raso's  1.00  MeV  table  and  the  500  values  in  his  2.00  MeV  table.  This 
would  produce  a  table  which  would  have  to  be  triply  interpolated  (over 
©,  ©  and  <£>' )  for  every  albedo.  This  would  require  a  computer  memory 
and  a  computing  time  which  would  probably  exceed  the  capabilities  of 
the  IBM-1620.   In  addition,  statistical  fluctuations  in  "Monte-Carlo" 
values  of  albedos  would  be  carried  over  into  scattered  dose  calculations. 
Some  type  of  "curve-smoothing"  would  hence  also  be  required  in  the  inter- 
polation method. 

The  differential  dose  rate  albedo  utilized  in  this  thesis  is  defined 
by  eq.(79).  This  albedo  contains  the  albedo  errors  discussed  above.  The 
computer  program  written  for  this  albedo  is  presented  and  discussed  in 
Appendix  E.   Portions  of  the  results  tabulated  in  this  appendix  are  plotted 
in  Figures  23  through  27.  The  largest  albedos  occur  with  near;   grazing 
incidence  and  reflection.  This  is  physically  what  would  be  expected  since 
the  photon  need  undergo  an  interaction  resulting  in  only  a  small  angular 
change  to  be  reflected.   It  can  readily  be  seen  from  these  figures  that 
differential  dose  rate  albedos  observed  by  a  detector  at  most  normal 
positions  would  lie  between  1%  and  207.. 
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A  better  picture  of  the  dose  rate  albedo  can  be  obtained  by  inte- 
grating the  differential  dose  rate  albedo  over  the  emergent  hemisphere. 
This  was  done  in  the  computer  program  of  Appendix  E  with  a  Gaussian 
quadrature  of  six.  These  total  dose  rate  albedos  were  checked  by 
multiplying  each  of  the  differential  dose  rate  albedos  by  its  solid 
angle  and  summing  up  these  96  values.  The  results  are  presented  in 
Table  1.   Better  correspondence  between  the  summed  and  integrated  albedos 

Table  1.  Total  dose  rate  albedos. 


Cosine  of  Incident  Obliquity 

COS0 


Total  Dose  Rate   Albedo 
Summed  Integrated 


0.1 

0.25 

0.50 

0.75 

1.00 


0.121 

0.136 

0.161 

0.171 

0.148 

0.153 

0.127 

0.129 

0.114 

0.115 

is  observed  with  approach  to  perpendicular  incidence.  These  integrated 
total  dose  rate  albedos  are  plotted  on  Figure  6a.   It  would  appear  from 
this  figure  than  an  average  total  dose  rate  albedo  from  concrete  would 
be  approximately  147..  This  can  be  compared  with  the  15Z  albedo  employed 
by  Spencer  (1). 

3,1.2   Incident  Dose  Rates 


The  computer  program  and  results  for  the  differential  incident  dose 
rate  at  point  (x,y)  on  the  ceiling  of  the  KSU  blockhouse  from  radiation 
incident  on  the  window  are  presented  in  Appendix  G.   Results  are  tabulated 
for  the  56  equal  solid  angles  of  Figure  6  at  the  (x,y)  positions  (0,5), 
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0  20  <t0  60 

Incident     Obliquity,     &„  (degrees) 


ao 


Vif .  6a.    Variation  ot  total  dose 

rate  albedos  with  incident 
polar  angle. 

(0,10),  (0,15),  (3,5),  (3,10),  (3,15),  (6,5),  (6,10)  and  (6,15)  where  the 

x  and  y  have  dimension  of  feet.  The  results  for  the  three  positions 

(0,10),  (3,5)  and  (6, IS)  are  presented  in  Figures  7  to  9. 

The  summation  of  these  differential  dose  rates  is  within  4%  of 
the  value  for  each  ceiline  point  obtained  in  the  total  incident  dose  rate 
program. 

The  total  dose  rate  incident  on  any  point  of  the  ceiling  of  the  KSU 
blockhouse  from  the  window -collimated  radiation  is  given  by  eq.(38).  The 
FORTRAN  II  source  program  which  solves  this  equation  is  presented  in 
Appendix  H  along  with  the  results  for  a  two  foot  square  mesh  on  the  ceil- 
ing. These  results  are  plotted  in  Figure  10.  The  dose  rate  is  highest 
along  the  centerline  of  the  window,  as  would  naturally  be  expected.  The 
peaking  of  this  radiation  is  also  to  be  expected  since  no  radiation  can 
be  incident  at  the  y  =  0  position.  The  magnitude  of  these  incident  dose 
rates  is  quite  small.   On  the  average,  as  can  be  noted  on  Fig.  10,  less 
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Differential  incident  dose  rates  at  point  (0,10) 
on  the  KSU  blockhouse  ceiling,  D  (x,y;6  ,$  )Acos0 
A$  (10"  D  ),  The  dose  rates  are  zero  unless  other- 
wise specified. 
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Differential  incident  dose  rates  at  point  (3,5) 
on  the  KSU  blockhouse  ceiling,  D  (x,y;0  ,$  )Acos© 
A<J>  ( 10  D  ).  The  dose  rates  are  zero  unless  other- 
wise  specified . 


29 


ci.      Differential  incident  dose  rates  at  point  (6,15) 
on  the  KSU  blockhouse  ceiling,  D  (x,y;0  ,0  )Acos0 
A<J>  (10"  D  ).  The  close  rates  arc  zero  unless  other- 
wise specified. 
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Fig,  10.   DoRe  rates  incident  on  ceiling  of 

KSU  blockhouse,  D,(x,y)  (D  ). 
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than  one  per  cent  of  the  reference  dose  rate  is  incident  on  the  ceiling 
of  the  KSU  blockhouse  with  the  existing  aperture  (a  window  26.0"  high 
by  44.4"  wide  in  a  20'  X  20'  X  8.17'  blockhouse).   Since  the  average 
total  dose  rate  albedo  was  estimated  at  the  end  of  Section  3.1.1  to  be 
14%,  it  is  expected  that  the  average  total  reflected  dose  rate  at  the  ceil- 


lng  of  the  KSU  blockhouse  would  be  of  the  order  of  one-tenth  of  one 
per  cent. 

3.1.3  Reflected  Dose  Rates 
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The  computer  source  program  which  solves  the  equation  for  the 
differential  reflected  dose  rate  at  point  (x,y)  on  the  ceiling  of  a 
blockhouse  is  presented  and  discussed  in  Appendix  J.   Results  were 
obtained  for  the  56  solid  angles  and  the  identical  nine  points  utilized 
in  the  incident  dose  rate  program.  The  results  for  the  three  positions 
(0,10),  (3,5)  and  (6,15)  are  presented  in  Figures  11-13.  Comparing 
Figures  11-13  with  Figures  7-9,  respectively,  the  forward  scattering 
characteristic  of  the  gamma  radiation  is  readily  noted.  The  magnitudes 
of  the  numbers  presented  in  Figures  11-13  are  approximately  of  the  order 
of  one-tenth  of  one  per  cent  of  the  reference  dose  divided  by  56  since 
there  are  56  solid  angles  in  this  hemisphere. 

The  total  dose  rate  reflected  from  any  point  of  the  ceiling,  given 
by  eq.(49),  was  determined  in  the  computer  program  of  Appendix  K.  The 
results  presented  in  Appendix  K  are  tabulated  again  in  Table  2  along 
Table  2.  Total  reflected  dose  rate  results. 


X 

y 

feet 

feet 

Integrated 

Summed 

0.00 

5.00 

0.0020992 

0.0020559 

0.00 

10.00 

0.0013809 

0.0013193 

0.00 

15.00 

0.0009131 

0.0008542 

3.00 

5.00 

0.0017215 

0.0016866 

3.00 

10.00 

0.0012473 

0.0012183 

3.00 

15.00 

0.0008615 

0.0008200 

6.00 

5.00 

0.0011606 

0.0010697 

6.00 

10.00 

0.0009931 

0.0009810 

6.00 

15.00 

0.0007418 

0.0007273 
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Fig.  11.   Differencial  reflected  dose  rates  at  point  (0,10)  on  the 
KSU  blockhouse  ceiling,  D  (x,y ,0,<t>)Acos<E»<l)  ( 10"&D  ). 


33 


Fig.  12.  Differential  reflected  dose  rates  at  point  (3,5) 
on  the  KSU  blockhouse  ceiling,  D  (x,y ,0,<tOAcos9 
A$  ( 1CT5D  )  .  r 
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Fig.  13.  Differential  reflected  dose  rates  at  point  (6,15) 
on  the  KSU  blockhouse  ceiling,  D  (x,y ,6,<MAcos6 
AO  '( 1CT5D  ) .  r 
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with  the  summed  differential  reflected  dose  rate  values.   Again  the 
dosages  for  a  given  y  position  are  maximum  along  the  centerline  and  are 
of  the  order  of  one-tenth  of  one  per  cent. 


3.1.4  Total  Dose  Rate  at  Position  (xx.yy.zz) 
in  the  KSU  Blockhouse 


The  determination  of  the  total  dose  rate  at  any  position  in  the  KSU 
blockhouse  was  a  prime  objective  of  this  thesis.  This  dose  rate  is 
given  by  eq.(54).  One  difficulty  which  was  encountered  in  solving  this 
equation  lay  in  obtaining  values  for  the  average  reflected  gamma  ray 
energy  as  a  function  of  emergent  polar  and  azimuthal  angles,   Berger  and 
Raso  (7)  determined  an  average  energy  of  reflected  gamma  photons  as  a 
function  of  the  emergent  polar  angle  in  their  Monte  Carlo  code.  The 
appendix  to  Reference  7  (23)  gives  values  of  this  average  reflected 
energy  for  1.250  MeV  photons  incident  on  a  concrete  slab  for  the  incident 
polar  angles  of  0  ,  30  ,  60  and  90  .  These  energies  are  given  only  as 
a  function  of  the  emergent  polar  angle,  ©.  The  30°,  60°  and  90°  average 
reflected  energies  are  plotted  in  Figure  14. 

An  interpolation  subroutine  was  revised  to  obtain  the  average  reflected 
energy  from  the  data  of  Figure  14.  This  computer  program  is  discussed  and 
presented  in  Appendix  C.   It  processes  data  up  to  twenty  points  long  and 
interpolations  up  to  order  seven.   Longer  lists  and  greater  order  inter- 
polations can  be  readily  obtained  by  modifying  the  program's  DIMENSION 
statement. 

The  value  of  the  average  reflected  energy  was  then  utilized  to 
interpolate  to  obtain  the  build-up  parameters  of  reference  10  and  the  total 
linear  macroscopic  gamma  ray  absorption  coefficients  for  air  and  concrete. 
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Fig.  14,   Average  reflected  gamma  ray  energies, 
after  Ber.i'.er  and  Raso  (23). 


A  computer  program  developed  to  solve  eq.(54)  is  presented  and 
discussed  in  Appendix  L.   A  test  of  the  necessary  order  of  interpolation 
was  made.   Linear  interpolation  was  found  to  be  sufficiently  accurate 
since  it  produced  answers  to  within  one  per  cent  of  that  obtained  with 
fifth  order  interpolation  for  the  cases  checked. 

A  test  of  the  order  of  Gaussian  quadrature  necessary  for  the  quadruple 
integration  of  eq.(54)  was  next  determined.  The  results  of  this  test  are 
presented  in  Figure  15.  This  figure  indicates  that  the  value  of  the 
quadruple  integrations  for  ceiling  position  (0,10,5.17)  was  approaching 
but  had  not  yet  reached  a  limiting  value  with  a  Gaussian  quadrature  of  six. 
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with  different  orders  of  Gaussian  quadrature 
for  the  detector  position  (0,10,5.17). 


It  was  necessary  to  determine  the  accuracy  of  the  different  integrations. 
A  quadruple  integration  of  order  seven  would  have  required  approximately 
five  hours  of  computer  time.   Higher  orders  would  have  required  correspond- 
ingly longer  times.   It  was  t  lie  re  fore  necessary  to  proceed  by  other  than 
this  brute  force  method.   A  calculation  was  performed  at  the  (0,10,5.17) 

position  with  a  Gaussian  quadrature  order  of  three  for  the  incident  B 

o 

and  $  variables  while  the  x  and  y  co-ordinates  were  integrated  with  an 
order  of  six.   The  result  obtained  was  within  one  per  cent  of  that  obtained 
with  all  four  variables  of  order  six.   The  variation  in  intensity  of  the 
window -co llimated  radiat  ion  with  posit  ion  was  thus  apparent ly  quite  smooth, 
The  computer  program  in  Appendix  L  was  next  mod  if  ied  so  that  the  dose 
rate  con  t  ribut  ions  from  different  posi  t  ions  a  Ion;'  the  center  line  to  the 
detector  located  at  posi  t  ion  ( 0,  10, 5.  17)  cou  Id  be  determined .   This  was 
accomplished  by  setting  x  -  0  and  printing  out  the  dose  rate  contributions 
for  y  -  1,2,3- ■ -20.   The  resulting  curve  of  dose  rates  versus  y  position  on 
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Fig.  16.   Contribution  to  detector  located  at  position 
(0,10,5.17)  from  centerline  (x  -  0  feet) 
ref lection. 


the  ceiling  is  presented  in  Figure  Ifi.  The-  yeneral  form  of  this  curve 
would  have  been  expected  from  the  incident  dose  rate  curves  presented  on 
Figure  10.   A  rood  feel  for  the  numerical  technique  of  Gaussian  quadrature 
is  obtained  by  notinc  the  variation  of  the  positions  obtained  with  different 
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orders  of  Gaussian  quadrature  as  illustrated  in  Figure  16.   It  is  readily 
understood  from  this  figure  why,  for  example  a  Gaussian  quadrature  of  two 
would  give  a  high  answer.  The  comparison  between  graphical  integration 
under  the  curve  of  Figure  16  and  the  numerical  integration  obtained  with 
different  Gaussian  quadrature  orders  is  indicated  in  Table  3.  The 
graphical  integration  value  is  approached  with  higher  orders  of  Gaussian 


Table  3.   Determination  of  the  order  of  Gaussian  quadrature 
necessary  for  the  y  integration  at  the  detector 
location  (xx,yy,zz)  of  (0,10,5.17). 


Method  of  integration  Total  dose  contribution 

at  (0,10,5.17)  (10"4D  ) 
o 

Graphical  integration  of  Figure  16  40.1 

Gaussian  quadrature  integration  of  order 

2  53.6 

3  39.6 

4  39.4 

5  40.5 

6  40.3 

7  40.2 


quadrature.   It  was  decided  that  a  Gaussian  quadrature  of  order  six  would 

be  sufficiently  accurate. 

The  computer  program  of  Appendix  L  was  written  so  that  the  symmetry 

about  the  centerline,  x  =  0  was  utilized  (i.e.,  integration  was  from  0  to 

X    rather  than  -X    to  X   )  when  the  xx  co-ordinate  of  the  detector 
max  max     max 

was  zero.   Results  obtained  with  a  Gaussian  quadrature  of  order  six  for 
the  y  integration  and  three  for  the  other  three  integrations  were  within 
one  per  cent  of  the  results  obtained  with  sixth  order  quadruple  Gaussian 
quadrature  integration. 

Accuracy  within  about  ten  per  cent  of  the  sixth  order  results  was 
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obtained  with  the  detector  off  the  centerline,  and  the  third  order  x 
integration  over  the  entire  width  of  the  ceiling.   An  analysis  similar 
to  that  required  for  the  y  integration  was  necessary.  The  curve  obtained 
for  an  x  traverse  at  one-half  foot  intervals  at  the  y  =  10  foot  position 
is  presented  in  Figure  17.   Results  obtained  similar  to  those  presented 


1.6 


•SO 
St  12 


o^o.e 


y  =  IO.O  feet 


10 


0    2    4     6    8 
Distance  from  centerline,  x(feet) 

Fig.  17.  Contribution  to  detector  located  at 
position  (5,10,5.17)  from  radiation 
along  the  y  =  10  feet  ceiling  co- 
ordinate. 


in  Table  3  indicate  that  a  Gaussian  quadrature  of  order  six  would  be 
required  for  less  than  one  per  cent  error  in  the  x  integration. 

Total  dose  rates  were  calculated  for  the  detector  positions  three 
feet  above  the  basement  and  first  floors  at  the  (x,y)  co-ordinates  (0,1), 
(0,6),  (0,10),  (0,14),  (0,19),  (2,10),  (5,  10)  and  (10,10).  These  results 
are  tabulated  in  Appendix  L  along  with  the  dose  rate  contribution  from  each 
considered  point  on  the  ceiling  to  the  dose  rate  at  the  detector.  These 
dose  rate  contributions  are  the  dose  rates  reaching  the  detector  weighted 
by  the  appropriate  Christoffel  numbers.  The  total  dose  rate  results  are 
presented  in  Figure  18  through  21.  The  curve  of  Figure  18  displays 
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the  variation  in  total  dose  rate  seen  by  a  detector  on  the  centerline 

three  feet  above  the  first  floor.   This  increases  from  a  value  of  about 

1.7  x  10  D   underneath  the  windov  to  a  value  of  about  2.4  x  10"4D  at 
°  o 

a  distance  of  one  foot  from  the  plane  of  the  window.  The  dose  rate  then 
increases  slowly  as  the  detector  is  moved  from  the  window  due  to  the  for- 
ward scattering  nature  of  the  radiation.   Figure  19  illustrates  that  the 
maximum  ceiling  scattered  dose  rate  would  be  along  the  centerline  on  the 
first  floor.  This  is  again  something  that  would  be  expected  from  the 
geometry  of  the  KSU  blockhouse.   The  maximum  dose  rate  measured  by  a 
detector  at  the  three  foot  level  on  the  first  floor  of  the  KSU  blockhouse 
from  window-collimated,  ceiling  scattered  fallout  radiation  would  there- 
fore be  at  the  far  wall  directly  opposite  the  window.  The  value  at  this 
position  is  approximately  3.8  x  10  D  . 

The  plot  of  the  total  dose  rate  of  the  radiation  along  the  basement 
centerline  reaches  a  broad  maximum  at  the  center  of  the  blockhouse 
and  then  decreases  as  It  approaches  the  wall  opposite  to  that  containing 
the  window.  This  Is  a  result  of  the  fact  that  the  greater  the  polar  angle 
between  detector  and  ceiling  position,  the  greater  the  thickness  of  con- 
crete floor  traversed  by  the  radiation  and  consequently  the  greater  the 
attenuation  of  the  radiation.  Figure  21  indicates  that  the  maximum  is 
again  along  the  centerline.  The  maximum  dose  rate  along  the  three  foot 
level  in  the  basement  is  located  in  the  center  of  the  blockhouse  with  a 

maximum  value  of  about  1.6  x  10 ~5D  . 

o 

It  is  desirable  to  compare  the  total  close  rate  contributions  from 
the  window-collimated,  ceiling  scattered  radiation  with  the  total  dose 
rates  received  by  a  detector  from  radiation  directly  penetrating  the 
walls  and  from  skyshine.  These  latter  contributions  are  discussed  in 


T4.0 
o 


e  3.0 
in 


o 

Q 


2  0 


o 
or 


l.O 


o 
Q 


D 
.O 


42 


x=  0.0  feet 
Detector      3  feet   above  first   floor 


0  4  6  12  16  20 

Distance    from    Aperture       Plane,   y(feet) 

Fig.  18.   Total  dose  rates  tnree  feet  above  the  first  floor 
centerline  of  the  KSU  blockhouse,  10*4D  . 
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19.   Total  dose  rates  three  feet  above  the  tirst  floor 
of  the  KSU  blockhouse  along  the  y  =  10  feet 
traverse,  10-4D  . 
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Fig.    20.     Total  dose   rates   three   feet   above   the  basement 
floor  centerline  of   the  KSU  blockhouse.    10"5D   . 


2.0 

»2'-6 

Ou> 

Kb 

,-1.2 
cor- 

ot: 
.OB 

y  =  IO.O   feet                         ^^ 

3   feet  above    basement   floor 

. 

o° 

*-    * 

o  * 

""5  0.4 

n 

0  5  10 

Distance  from  centerline,  x  (feet) 

Fig.  21.  Total  dose  rates  three  feet  above  the  basement 
floor  of  the  KSU  blockhouse  along  the  y  =  10 
feet  traverse,  10"5D  . 
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Appendix  N.  The  KSU  blockhouse  has  an  aperture  fraction  of  approximately 

0.05  in  one  wall  (ratio  of  window  area  to  wall  area;  the  KSU  blockhouse 

door  is  assumed  to  be  filled  in  with  concrete  blocks  of  the  same  thickness 

as  the  blockhouse  walls).  The  dose  rate  in  the  KSU  blockhouse  from  all 

contributions,  as  discussed  in  Appendix  N,  varies  only  slowly  with  large 

changes  in  the  aperture  fraction  if  the  lower  sill  of  the  aperture  is  a 

greater  distance  from  the  floor  than  that  of  the  detector  position.  The 

window-collimated,  ceiling  scattered  dose  rates  in  the  KSU  blockhouse  were 

also  calculated  at  the  detector  positions  (0,10,5.17)  and  (0,10,13.17)  with 

essentially  all  of  the  wall  above  the  first  floor  detector  position  removed. 

These  results  are  tabulated  in  Appendix  L.  This  removal  of  the  upper  five 

feet  of  wall  creates  ill   aperture  fraction  of  0.6.  Comparisons  between  the 

window-collimated,  ceiling  scattered  dose  rate  and  the  total  dose  rate 

Incident  on  the  detector  at  the  two  central  position,  (0,10,5.17)  and 

(0,10,13.17)  are  presented  in  Table  4.  The  percentages  presented  in  Table 

Table  4.   Ratio  of  window-collimated,  ceiling  scattered 
fallout  radiation  to  total  radiation  received 
at  3  feet  above  the  basement  and  first  floor  at 
the  central  position,  x  =  0  feet,  y  =  10  feet. 


Dose  Rates  (D  ) 


Contribution 

Aperture 
0.05 

Fraction 

0.6 

1st  floor 

basement 

1st  floor 

basement 

Wall  penetration  and  skyshine 
(experimentally  determined  and 
adjusted  for  window  contri- 
bution) 0.18       0.0028      0.21        0.0033 
Window-collimated,  ceiling 
scattered  for  one  wall        0.000337   0.0000164   0.00717     0.000285 

Window  collimated,  ceiling 

scattered  for  four  walls       0.00135    0.0000656   0.0287      0.00114 


Table  4.  Cont. 
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Contribution 


Dose  Rates  (D  ) 


Aperture  Fraction 
0.05  0.6 


1st  floor   basement 


1st  floor   basement 


Percent  contribution  of  the 
window-collimated,  ceiling 
scattered  dose  rate 


0.747. 


2.37, 


127. 


267 


4  are  obtained  from  the  ratios  of  the  window-collimated,  ceiling  scattered 

radiation  considering  a  window  of  the  given  aperture  fraction  in  each  of 

the  four  walls  to  the  total  amount  of  radiation  received  by  the  detector 
at  the  given  position. 


3,2  Conclusions 


The  size  of  the  concrete  blockhouse,  the  size  and  position  of  the 
aperture  and  the  thickness  of  the  floor  are  governed  by  the  input  data 
to  the  programs  in  this  study.  The  output  can  be  determined  for  any 
position  in  the  blockhouse  except  directly  under  the  window.  The  three 
main  limitations  Inherent  in  these  programs  are  the  horizontal  symmetry 
of  the  aperture,  the  height  of  the  blockhouse  celling  of  8,17  feet  above 
the  contaminated  plane  and  the  energy  of  the  incoming  gamma. 

The  first  of  these  limitations  could  be  removed  by  revising  the 
angular  co-ordinate  system.  This  would  merely  necessitate  the  defining 
of  a  new  variable,  the  off-center  position  of  the  window  vertical  center- 
line,  and  adding  this  to  the  x  co-ordinate  in  eqs.(l)  and  (2).  The  window 
of  the  KSU  blockhouse  is  horizontally  centered  so  the  dose  rates  were  cal- 
culated only  for  the  positive  x  half  of  the  ceiling. 
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The  limitation  of  the  blockhouse  ceiling  height  above  the  contaminated 
plane  to  the  specific  height  of  8.17'  was  inherent  in  Appendix  A  in  the 
determination  of  the  constant  of  proportionality,  W,  for  the  dose  angular 
distribution  equation.   The  third  limitation  on  the  incident  energy  is 
also  involved  with  this  dose  angular  distribution.   Spencer  (1)  presents 
curves  of  the  dose  angular  distributions  for  different  heights  above  the 
contaminated  plane  both  for  a  plane  contaminated  with  cobalt-60  and  a 
plane  contaminated  with  the  1.12  hour  spectrum  of  fission  products.  These 
curves  would  have  to  be  put  in  analytical  forms  akin  to  that  obtained  in 
Appendix  A  to  remove  these  limitations  on  the  problem. 

An  assumption  that  was  made  in  this  study  was  that  of  reciprocity 
(11).   That  is,  the  incident  gamma  photons  were  assumed  to  emerge  from 
the  slab  at  the  point  of  impingement.  This  is  of  course  not  the  true 
situation  since  the  photons  do  travel  some  distance  in  the  concrete  before 
undergoing  an  interaction.   This  concept  of  reciprocity  was  accepted  in 
this  study  since  no  practical  alternative  was  available. 

The  assumption  was  also  made  in  utilizing  Raso' s  results  (12)  that 
the  6"  concrete  ceiling  slab  was  a  seml-lnf inite  reflective  medium.   This 
assumption  is  quite  good  since  the  Monte  Carlo  results  of  LelmdOrfer  (25) 
indicate  that  for  practical  purposes  even  a  10  cm.  concrete  wall  can  be 
regarded  as  infinitely  thick  as  far  as  being  considered  to  have  reached 
the  infinite-thickness  albedo. 

The  theoretical  differential  dose  rate  albedo  results  obtained  and 
graphed  In  this  study  provide  a  good  indication  of  what  would  be  experi- 
mentally obtained  from  gamma  ray  scattering  off  concrete  slabs.   An  average 
total  dose  rate  albedo  of  147,  was  obtained.  The  figures  and  tabulations 
of  the  differential  incident,  total  Incident,  differential  reflected  and 
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total  reflected  dose  rates  on  the  ceiling  of  the  KSU  blockhouse  presented 
a  good  picture  of  the  behaviour  of  this  window-collimated  dose  rate  con- 
tribution on  the  ceiling  of  a  typical  concrete  structure.  The  per  cent 
contributions  of  this  radiation  tabulated  in  Table  4  range  from  about  1% 
to  25%.  These  contributions,  while  small,  are  accurate  and  can  be  very 
useful  in  determining  protection  factors  for  buildings  such  as  stores 
with  large  aperture  fractions. 

3.3  Further  Investigations 

Excellent  opportunities  for  further  worthwhile  investigations  in 
this  field  are  foreseen  utilizing  this  study  as  a  basis.   Structure 
shielding  analysis  presently  treats  backscattering  from  interior  surfaces 
by  a  simple  corrective  factor.  This  factor  is  presently  estimated  by 
utilizing  the  fact  that  about  15%  of  the  radiation  energy  incident  on  a 
surface  is  backscattered  CD.  The  suggestion  is  herewith  made  that  a 
detailed  study  be  undertaken  of  the  amounts,  angular  distributions  and 
energies  of  all  the  backscattered  radiations  in  simple  concrete  structures 
leading  to  a  determination  of  the  total  backscattered  dose  rates  in  such 
structures.  This  would  involve  not  only  the  window-collimated,  celling 
scattered  radiation  but  also  the  radiation  which  penetrates  a  wall  and  is 
backscattered  off  the  opposite  wall,  and  other  backscattered  radiations. 

Once  a  standard  computational  scheme  for  calculation  of  the  total 
backscattered  dose  rate  contributions  is  prepared,  it  is  necessary  to 
verify  It  through  measurements  made  in  the  KSU  blockhouse  surrounded  by 
a  simulated  plane  fallout  field.   One  of  the  Initial  determinations  to  be 
made  is  that  of  both  the  polar  and  azimuthal  variation  of  the  average 
reflected  energy.   Such  a  determination  is  necessary  to  obtain  accurate 
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answers  for  the  further  attenuation  and  reflective  properties  of  the 
photons . 

The  results  should  finally  be  presented  in  the  form  of  simplified 
design  curves. 
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APPENDIX  A 

Determination  of  the  Constant  of 

Proportionality,  W,  for  the  Dose 

Angular  Distribution  Equation 


The  dose  angular  distribution  defined  by  L.  V.  Spencer  (1)  for  an 
idealized  plane  fallout  source  can  be  expressed  empirically  in  an  equation 
of  the  form 

fld.cosG  )  =  W  B(2  (E  )d/cos6  )fcose  exp(2  (E  )d/cos9  )j         (55) 
o        ao       o  v    oao       oy 

where  d  is  the  height  in  air  above  the  source,  9  is  the  incident  polar 

angle,  W  is  the  constant  of  proportionality,  B(£  (E  )d/cos0  )  is  the 

build-up  factor  and  2  (E  )  is  the  total  linear  gamma  ray  absorption 
a  o 

coefficient  at  incident  energy  E  .   It  is  desired  in  this  appendix  to 
determine  the  value  of  the  constant  of  proportionality,  W,  for  a  constant 
height  of  the  ceiling  above  the  contaminated  plane,  d.  This  height,  d,  is 
taken  here  to  be  that  of  the  KSU  blockhouse,  8.17'.  The  total  linear  gamma 
ray  absorption  coefficient  is  tabulated  in  Reference  16  to  be 

S  (1.252MeV)  =  0.0567  cma/gm  x  1. 293X10"3gm/cc  =  7.331X10  ^cm"1    (56) 
a 

and 


2  (E  )d  =  0.01825.  (57) 

a  o 

The  build-up  factor,  B(Z  (E  )/cos0  ),  is  given  in  Reference  10  to  be 
r  a  o      o      " 

B(Z  (E  )d/cos©  )  =  1  +  a'Z  (E  )d  exp(b2  (E  )d/cos6  )/cosG        (58) 
ao       o  aoao       o      o 

where  a'  and  b  are  parameters  which  are  functions  of  energy.  For  the 
1.252  MeV  energy,  a'  =  0.89562  and  b  =  0.062518.  The  Jt(d,cos6  )  values 
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were  obtained  from  Figure  Bl  of  Reference  1  for  cobalt-60  gamma  rays 
incident  on  concrete. 

The  values  of  the  parameters  of  eq.(55)  for  five  values  of  cos0 
are  determined  in  Table  5.   It  is  desirable  to  develop  an  equation 

Table  5.   Determination  of  W  in  eq.(62). 

cos6      £  (E    )d/cosG       e"Sa(Eo)d/coS0o     B(Z  (E    )d/cosG       l(d,cos0  )       W 
oaoo  aoo  o 

0.19  0.1904 

0.275  0.2069 

0.405  0.2034 

0.82  0.2069 

1.71  0.1761 

to  give  W  as  a  function  of  cos0  .   A  straight  line  can  fit  these  results 
(17)  through  the  equation 


1.00 

0.01825 

0.98191 

1.0165 

0.75 

0.02433 

0.97596 

1.0218 

0.50 

0.03650 

0.96416 

1.0328 

0.25 

0.07300 

0.92960 

1.0657 

0.10 

0.18250 

0.83318 

1.1653 

W  =  a"  +  b'lcosG  -cos6  )  (59) 

o     o 


where 


(60) 


cos6  =  \)    cos9  .l/n  =  0.52, 
o   KLi  oi-* 

1=1 

n 

a"  =  (V  W1)/n  =  0.1967,  (61) 


i^l 


and 


b'  =  {Vw".(cose  .-cose  )]()  (cos6  -cosR  )21   =  0.0095.         (62) 
Vj   i      Ol      o  "-Li  oi      o  ' 


1=1  1=1 

Therefore,  eq.(59)  becomes 


'.6 

W  =  0.1967  +  0.0095(cos9  -0.52)  (63) 

o 

and 

W=    0.1917  +   0.0095cos9   .  <&'•) 

Eq.(55)    thus  becomes 

i(d,cos9  )  =   (0. 1917+0. 0095cos6  )B(Z  (E    )d/cos9  ) 
o  o  a     o  o 

xfcosS  exp(Z  (E    )d/cos3   )}     . 
1  o  a     o  o   J 


(65) 


This  equation  for  the  dose-angular  distribution  is  utilized  throughout 
this  study. 
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APPENDIX  B 
Albedo  Study 

The  total  albedo  Is  a  measure  of  the  efficiency  of  a  surface  In 
reflecting  incident  radiation.  This  paper  concerns  only  gamma  radiation 
albedos.  The  three  most  commonly  used  total  albedos  are  the  total  number 
albedo,  the  total  energy  albedo  and  the  total  dose  albedo.  The  total 
number  albedo  is  simply  the  ratio  of  the  number  of  photons  reflected  to 
the  number  of  photons  incident.  The  total  energy  albedo  is  the  ratio  of 
the  product  of  the  number  of  reflected  photons  by  their  energies  to  the 
product  of  the  incident  photons  by  their  energies.  The  total  dose  albedo 
is  similarly  defined  except  that  the  number  of  photons  is  multiplied  by 
the  linear  (or  mass)  energy  absorption  coefficient  for  air  (at  the  standard 
temperature  and  pressure)  at  the  appropriate  energy  along  with  the  energy 
Itself.  Thus  the  dose  albedo  "weighs"  the  photons  in  accordance  with  their 
efficiency  of  detection  in  an  air-equivalent  detector. 

The  differential  albedo  is  most  commonly  used  in  albedo  calculations. 

The  differential  number  albedo  is  a  measure  of  the  fraction  of  the  photons 

of  energy  E  Incident  on  a  surface  at  given  6  and  $  which  emerge  from 
nJ      o  o      o 

that  surface  into  a  certain  solid  angle,  dQ,  about  Q.  The  probability  of 
this  occurring  is  designated  (11)  as  P(E  ,0  ,$  ;E,0,O).  The  differential 
number  albedo  is  a  ratio  of  currents  since  it  is  a  measure  of  the  number 
of  photons  penetrating  a  given  surface.  The  differential  energy  albedo 
is  simply  (E/E  )P(E  ,0  ,$  ;E,0,O)  and  the  differential  dose  albedo  is 

a.(E  ,0  ,*  ;E,0,<p)dQ  =  fu  (E)E/u  (E  )E  1p(E  ,©  ,«5  |B,©,4)dQ      (66) 
dooo  v  a     aooooo 

The  dose  albedo  is  not  the  ratio  of  emergent  dose  rate  to  incident  dose 
rate  since  dose  is  proportional  to  energy  flux.  This  ratio  of  dose 
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rates  is  given  by  the  differential  dose  rate  albedo, 

a(6  ,0  ,e,*)dQ  =  P^cosS  /cos9)  a.cfi  dE.  (67) 

—  o  o         J       o        d 

Albedos  can  be  theoretically  computed  on  electronic  computers  by 
means  of  the  Monte  Carlo  method.  The  Monte  Carlo  method  is  a  theoretical 
experiment  whereby  the  paths  in  a  medium  of  interest  of  a  large  number  of 
particles  are  followed.  The  probability  distribution  for  each  type  of 
interaction  being  known,  the  distance  traveled,  type  and  result  of  inter- 
action can  be  chosen  out  of  a  set  of  random  numbers.  The  term  "Monte 
Carlo"  has  been  applied  to  this  effect  because  of  the  utilization  of  random 
numbers . 

The  results  of  a  Monte  Carlo  study  of  the  backscattering  of  gamma  rays 
from  a  semi-infinite  concrete  medium  (12)  are  utilized  in  this  study.   A 
quantity  determined  in  reference  12,  called  the  "differential  scattered 
dose  rate,"  is  given  by  the  equation 

SD(E  ,6  ,<t  ;E,e,*),,,,  =  p!,"1rk'  +  ir0{E  H  (E)P(E  ,6  ,$:E,8,«M  dQ  dE] 
o  o-  o'  '    j'k'   J    JQ    JQ  o  o 

J    k 


(68) 


x{(cosg).  ,  +  cos9.  ,  ,)/2]    kev./gm.-sec. 


These  SD.,,,  are  tabulated  for  different  values  of  Q..,,  and  represent 
j'k'  j'k' 

the  dose  rate  per  incident  gamma  ray  per  cm.   produced  by  the  emergent 

flux  whose  directions  of  flow  lie  within  a  certain  solid  angle,  2&Q,     The 

factor  of  2  takes  into  account  the  fact  that  the  tabular  results  for  the 

angular  interval  f0.l,<I>.l  ,]  include  also  the  mirror  contribution  from 
J    J  +1 

[360°-$,,,  360°-$  ,   1,   Utilizing  eq.(66),  eq.(68)  becomes 
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SD(E    ,©  ,<t>  ;E,e, $).,ii    =   fn  (E    )E   /(average  cos6)] 
0     0     0  j    k  vla     o     o 

XP'+ J   '  +  1j  °ad(Eo,eo,0o-,E,e,^)d2tiE   kev./gm.-sec . 


(69) 


•j-   9k'    ° 


The  value  of  the  triple  integral  in  eq.(69)  gives  the  ratio  of  the  average 

energy  absorbed  in  one  centimeter  of  air  per  second  from  the  radiation 

back-scattered  into  O.,.,,  to  the  average  energy  absorbed  in  one  centimeter 
J  K 

of  air  per  second  from  the  photons  incident  on  one  square  centimeter  of 
the  slab  (11). 

Chilton  (13)  defines  a  total  dose  albedo,  a_,  as  "the  ratio  of  two 
instrument  readings.  The  first  is  the  reading  that  an  isotropically  respond- 
ing dose-rate  meter  would  record  above  an  infinite  plane,  when  it  is  uni- 
formly illuminated  by  a  broad  parallel  beam  of  gamma  rays;  the  second  is 
the  reading  of  the  meter  due  solely  to  the  direct  radiation."  This  ratio 
is  the  a  defined  by  eq.(67).   Substituting  eq.(69)  into  eq.(67)  results  in 

a(6  ,$  ;8,<l>)dQ  =   fcos0  /[X   <E    )E   "(SD(E    ,6   ,<$>  ;E,e,$)dQ.  (70) 

—     oo  *■  oaoo  ooo 

The  differential  dose  rate  albedo  symbolized  by  a(6  ,$  ;0,<£)dQ  was  utilized 

—  o  o 

in  computing  the  reflected  dose  rates  in  this  study.   Because  of  the  large 
number  of  a1  s  required  for  the  different  0' s  and  <t>*  s ,  it  was  deemed  inadvisa- 
ble to  attempt  to  interpolate  among  the  tabulated  results  of  reference  12. 
A  semi-empirical  formula  developed  by  A.  B.  Chilton  and  C.  M.  Huddleston 
(14)  which  yields  values  for  a  somewhat  different  differential  dose  rate 
albedo  of  gamma  rays  on  concrete  was  used  instead.  The  theoretical 
derivation  of  this  albedo  assumed  that  the  actual  scattering  process  can 
be  approximated  by  a  term  involving  a  single  Compton  scattering  event  and 
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another  term  involving   isotropic    scattering.      The   resultant   formula,   here- 
inafter called   the  Chllton-Huddleston   formula,    is 

ate  ,e,<j>' )  =  feme  )+c]fi+cose  sece]  (71) 

o        ^    s     *•      o 

where  C  and  C  are  empirical  constants  and  K(0  )  is  E/E  times  the  Klein- 

s  o 

Nishina  differential  energy  scattering  cross  section   (20)    for  the    total 
scattering  angle  6     and   the   incident   photon  energy,   E    .     The  differential 
cross   section  per  unit   solid   angle,  Q,    derived   by  Klein  and   Nishina  is 
given  by 

dff/dfi  =   (R'p)2f (l/p)+p-sin26  )/2       cm.2/electron-steradian  (72) 

o        "■  s 

where  R1    is  the  classical   radius  of   the  electron, 
o  ' 

R'    =  e2/mc2  =   2.818X10"13cm.  (73) 

The  K(0  )  defined  in  reference  14  is  equal  to  p  d<j/dQ.  The  p  is  equal  to 
E/E  where  the  Compton  scattered  energy  is 

E  =  E  fl+E  (1-cose  )/0.511MeV]  .  (74) 

ov   o       s 

The  cos©  term  in  eq.(74)  is  equal  to 

cos0  =  sin9  cosO'sin0  -  cos9  cos6.  (75) 

The  azimuthal  angle,  <t>'  ,  given  in  eq.(71)  and  eq.(75)  is  equal  to 
( see  Figure  3) , 
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The  weakest  part  in  the  development  of  the  Chilton-Huddleston  formula 
Is  the  assumption  that  the  gamma  ray  mass  absorption  coefficient  remains 
constant  during  a  scattering  history.   Although  this  approximation  initially 
appears  rather  poor,  the  comparison  between  the  results  of  this  two- 
parameter  formula  and  the  Monte  Carlo  results  of  reference  12  presented  in 
a  latter  portion  of  this  appendix  indicate  a  satisfactory  agreement. 

The  relationship  between  the  differential  dose  rate  albedo,  a,  of 
the  Chilton-Huddleston  formula  and  the  differential  scattered  dose  rate, 
SD,  of  reference  12  is  derived  in  reference  14  to  be 

a  =  SDjCcose^+cosG^  1)/2]{lOOOEoU.UEo)2A$(cosGk,+cosek,  +  1)}        (77) 

where  A<1)  =  $  ,  +  1-0  ,  =  15  for  the  results  of  reference  12. 

The  best  values  for  the  empirical  constants,  C  and  C  ,  of  eq.(71) 
were  determined  in  reference  14  by  a  least-square  computer  analysis  from 
the  results  of  reference  12.  The  computed  best  values  are  given  in  Table 
6.  The  best  values  of  C  and  C  for  the  energy  of  the  average  cobalt-60 


Table  6,   Parameters  for  a  semi-empirical 

formula  for  the  differential  gamma 
ray  dose  albedo. 


Energy,  E 
(MeV)  ° 


C(X1026) 


0.2 
0.5 

1 
2 
4 

6 

10 


0.022126134 
0.033556571 
0.054677888 
0.086899748 
0.123811030 
0.148975400 
0.16600843 


0.035648111 

0.022152990 

0.011132052 

0.0077462231 

0.0075919821 

0.0074920140 

0.0070037501 
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gamma  ray  (1.252  MeV)  were  obtained  through  the  Interpolation  subroutine 
to  be  C  -  6.4501  x  1024  and  C  =  0.0089295.  This  interpolation  sub- 
routine is  described  in  Appendix  C. 

The  SD  albedo  can  therefore  be  obtained  by  utilizing  these  best 
value  results  in  eq.(71)  and  substituting  this  value  of  a  into  eq.(77). 
The  resultant  equation  is 

SD(E  ,6  ,$  ;E,e,<t>)  =  1000E  n'(E  ){CK(B  )+C  ]{2A0)(cosa  , -cosQ  ,  ,  , )] 

ooo  o  ti   o       s  K       K  t  I 


x{  l+cos0  sec0]      {(cosft,+coEft,    ,>/2]      MeV/gm.-sec. 


(78) 


This  equation  is  plotted  for  three  different  emergent  azimuthal  angles 
on  Figure  22.  These  are  for  an  E  of  1.00  MeV  and  an  incident  polar 
angle  of  0  =  cos"10.25.   An  excellent  correlation  is  shown  in  Figure  22 
between  the  plot  of  eq.(78)  and  the  plotted  results  of  reference  12.  The 
main  difference  between  the  two  appears  at  large  emergent  polar  angles-- 
an  angular  region  which  will  contribute  little  to  the  total  dose  at  per- 
tinent points  in  the  building.   However,  even  here  the  curves  obtained 
through  the  Chilton-Huddleston  formula  give  a  higher,  and  therefore  more 
conservative,  albedo.  The  computer  program  which  determines  the  Chilton- 
Huddleston  albedo  is  presented  in  Appendix  D. 

The  differential  dose  rate  albedo  which  was  utilized  in  computing 
the  reflected  dose  rates  at  the  ceiling  in  this  monograph  is  obtained  by 
combining  eq.(70)  and  eq.(78)  and  dividing  through  by  2AQ  so  as  to  make 
the  resultant  albedo  dimensionless.   i.e., 

a(9  ,<f>  ie,<J»dQ  =  1.293[CK(9  )+C'l  fl+cos6sece  1   d£3  (79) 

—  oo  v    s    '    *■  o ' 

The  factor  of  1.293  is  obtained  from  the  product  of  1000  times  the  density 
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FiR.  22.  Comparison  between  scattered  dose  rates  obtained  from 

Cbilton-Huddleston  formula  and  Raso's  Monte  Carlo  results 
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of  air  at  standard  temperature  and  pressure.  The  density  of  air  is  intro- 
duced because  the  air  attenuation  coefficient  in  eq.(70)  has  cm"   units 
while  that  in  eq.(78)  has  cm2/gm  units.  The  computer  program  written 
for  a  is  described  in  Appendix  E.  The  variation  of  the  dose  rate  albedo, 
a,  with  emergent  polar  angle,  8>  is  plotted  in  Figures  23  through  77  for 
three  values  of  <£'  and  the  five  incident  polar  angles:   cos©  -   0.1,  0.25, 
0.5,  0.75  and  1.00. 


o 
-o 


< 


o 
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Fig.  23.   Variance  of  dose  rate  albedo,  a  with 
emergent  angles  for  perpendicular 
incidence. 
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Fig.  24.   Variance  of  dose  rate  albedo,  a,  with  emergent 
angles  for  an  incident  polar  angle  of  41,4°. 
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Fig.  25.   Variance  of  dose  rate  albedo,  a,  with  emergent 
angles  for  an  incident  polar  angle  of  60°. 
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Fig.    26.      Variance  of   dose   rate   albedo,    a,   with  emergent 
angles   tor  an  incident   polar  angle  of   75.5°. 


67 


«> 
o 
a. 


.300 

.275 

.250 

.225 

.200 
■I 

r.175 

> 
) 
I 

E  .150 

125 
i 
'.100 

.075 

.050 

.025 


Cos    0.  =  0.1 

Emergent    Azimuthal    Angle,  $ 

7.5° 

37.8° 

172. S° 


0  10  20  30  40  50 

Emergent     Polar    Angle,  8  (Degrees) 

Fig.    27.      Variance  of   dose   rate   albedo,    a,   with  emergent 
angles   for  an   incident   polar  angle  of   84.3°. 
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APPENDIX  C 

Description  and  Explanation  of  the  IBM- 1620 
Computer  Program  Used  to  Interpolate  Among 
Various  Parameters „ 


This  computer  code  was  written  to  interpolate  among  the  various 
parameters  required  for  the  main  programs.  This  program  is  a  revision 
of  one  written  by  V.  Cain  during  the  summer  of  1962  (4)  and  is  rewritten 
in  the  form  of  a  Subroutine  Subprogram  (entitled  INTERP)  in  FORTRAN  II 
language.  The  source  program  is  listed  and  the  logic  diagram  shown  in 
this  appendix. 

Interpolation  for  a  given  point-of -interest  was  made  in  this  pro- 
gram over  a  number  of  Interpolation  points  one  less  than  the  length  of 
the  interpolation  list.  The  Gaussian  arrangement  was  used  whereby  points 
on  alternate  sides  of  the  point-of-interest  are  successively  used.   A 
polynomial  of  the  same  degree  as  the  number  of  interpolation  points  minus 
one  was  passed  through  the  list  points. 

A  Subroutine  Subprogram  is  written  in  the  general  form,  SUBROUTINE 
Name  (aj^ag, . ,  ,a_)  where  Name  is  the  symbolic  name  of  a  subprogram  and 
each  argument,  a1,ag,...an>  if  any,  is  either  a  subscripted  or  a  non- 
subscripted  variable  name  (21).  This  particular  subroutine  form  is 
SUBROUTINE  INTERPQMAXTP,  XABCIS,  FORDIN,  NPTSTP,  TVX,  TVF).  This  sub- 
routine accepts  lists  up  to  twenty  points  long  and  interpolations  up  to 
order  seven.   Longer  lists  and  greater  order  interpolations  can  be  readily 
obtained  by  modifying  the  DIMENSION  statement.   Arrangements  are  made  for 
extremely  short  lists  and  for  interpolations  near  one  end  of  the  list. 
Table  7  lists  the  various  input  data  and  variables  utilized  in  this 
subroutine. 
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Table  7. 


Input  data  and  variables  required  for 
the  IBM- 1620  interpolation  program. 


Symbo  1 


Explanation 


INTERP 
IMAXTP 
XABCIS 

FORDIN 

NPTSTP 

TVX 

TVF 

XOTP 

INTP 


ATP 

ITP 

INOTP 

XN 

FN 

IOTP 
FACT 


Symbolic  Name  of  the  Subroutine  Subprogram 

Length  of  Interpolation  List 

Abcissa  of  Interpolation  List;  Must  be  Entered  into 

Computer  in  Either  Ascending  or  Descending  Order 

Ordinate  of  Interpolation  List 

Number  of  Interpolation  Points 

Interpolation  Point  in  Abscissa  List 

Desired  Interpolated  Value  in  Ordinate  List 

Floating  Point  Variable  Used  in  Ordering  Interpolation 

Points 

Fixed  Point  Variable  Used  in  Ordering  Interpolation 

Points;  INTP  =  1  is  the  Argument  of  the  XABCIS  (and 

FORDIN)  Nearest  TVX,  INTP  =  2  is  Next  Nearest,  Etc. 

Variable  Used  in  Ordering  Interpolation  Points  Made 

Equal  to  Absolute  Value  of  Difference  Between  TVX  and 

Each  XABCIS 

Position  in  List  of  XABCIS  Nearest  TVX 

Integer  Oscillating  Between  +1  and  -1  to  Obtain  the 

Gaussian  Arrangement 

Abscissa  List  Ordered  So  That  Successive  Values  are  at 

Greater  Distances  from  TVX 

Ordinate  List  Ordered  So  That  Successive  Values  are  at 

Greater  Distances  from  TVF 

Variable  Which  Determines  if  End  of  List  Has  Been  Reached 

Factor  Which  Modifies  the  Divided  Differences 
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LOGIC     DIAGRAM    FOR     THE 
INTERPOLATION     SUBROUTINE 


|INTP  -  JNTP»l| 
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£> 


-»-|Set   INTP  =  l|- 


Form     XN(INTP), 
FN(INTP) 


UaXTP-IQTpV lF0rm    IQTPH Qh (    1NNTP   ) 


Form    IQTP 


1— © 


0)      (+) »~Form    1TP.INNTP 


Form    ITP 


Form  ITP 


|  Set  JNTPMr-*- 


Form  NPTSTP, 
TVF,    FACT 


|  Form   TVF  j-i [Set  JNTP-  JNTP*l|-<— (i No 


|  Set  INTP  =  JNTP^ >. 


Set  INTP  =  INTP*1  -» (No 


RETURN 


Yes) HForm     FACT  \ 
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C      INTERPOLATION  SUBROUT INE.F (X )    V.CAINS  REWRITTEN  1/63   BY  J.BARAN 
C      INPUT  DATA— IMAXTP=LENGTH  OF  INTERPOLATION  LISTt  XABCIS=ABSCISSA. 
C      FORDIN=ORDINATE  LIST.  NPTSTP=NUMBER  OF  INTERPOLATION  POINTS, TVX» 
C      VALUE  INTO  X  LIST  AT  WHICH  INTERPOLATED  F  VALUE  (TVF)  IS  DESIRED 
SUBROUTINE  INTERPI  IMAXTP.XABCI S .FORDIN.NPTSTP.TVX.TVF) 
DIMENSION  XABCISI20).  FORDIN120).  XNI7I.FN17) 
800  IF( IMAXTP-11810,820.830 
810  TVF=0. 

GO  TO  1000 
820  TVF=F0RDIN(1) 
GO  TO  1000 
C      THESE  ORDERS  TAKE  CARE  OF  ECCENTRICALLY  SHORT  LISTS 
830  IFINPTSTP-IMAXTP1850.840.840 
840  NPTSTP=IMAXTP-1 
C      ORDER  OF  INTERPOLATION  IS  DECREASED  IF  LIST  IS  TOO  SHORT 
850  X0TP=1.E90 

DO  890  INTP=1»IMAXTP 
ATP'TVX-XABCIS(INTP) 
IF(ATP)860,870.870 
860  ATP=-ATP 

870  IF(ATP-X0TP)880,890.890 
880  ITP=INTP 
XOTP=ATP 
890  CONTINUE 
C      THIS  LOOP  SELECTS  THE  VALUE  OF  XABCIS  CLOSEST  TO  TVX 
IF  (IMAXTP-ITP-1)  892.892.889 

§§?  If  II5lF*Hvl9-'fXidfIhTP+in  -  ABSFITVX  -  XABCIS<ITP-1I>)  892.892 
1.893 

892  INNTP=1 
GO  TO  894 

893  INNTP  =  -1 

894  NPTSTP=NPTSTP+1 

C      I9ESF  GROERS  DETERMINE  ON  WHICH  SIDE  OF  TVX  IS  THE  NEXT  XABCIS 

XN( INTP5»XABCIS( ITP) 

FN( INTP)=FORDIN(ITP) 

1F(INNTP)900, 900.910 
900  IQTP=ITP-INTP 

GO  TO  940 
910  IOTP=ITP+INTP 
920  IF( IMAXTP-IQTP1930.940.940 
930  ITP=ITP-1 

GO  TO  970 
940  IFIIQTP1950.950.960 
950  ITP=ITP+1 

GO  TO  970 
960  ITP=IQTP 

INNTP=-INNTP 
970  CONTINUE 
C      THIS  LOOP  ORDERS  THE  INTERPOLATION  POINTS 
C      FOR  INCREASING  DISTANCES  FROM  TVX 

NPTSTP=NPTSTP-1 

TVF=0. 

FACT=1. 

DO  990  JNTP=1.NPTSTP 

TVF«TVF+FACT*FN(1) 

DO  980  INTP=JNTP.NPTSTP 

IQTP=INTP-JNTP+1 
980  FN(  IQTP)=(FN(  IQTP+1  1-FNI  IQTP  )  )  /  UN  I INTP+1 )  -XN<  IQTP)  ) 
990  FACT=FACT*(TVX-XNIJNTP)> 
C      THIS  IS  THE  MAIN  LOOP  FOR  CALCULATING  THE  DIVIDED  DIFFENCES 
1000  RETURN 

END 
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APPENDIX  D 

Description  and  Explanation  of  the  IBM-1620 
Computer  Program  Used  to  Check  the  Accuracy 
of  the  Chi  Iton-IIuddleston  Formula, 


This  computer  code  was  written  to  check  the  accuracy  of  the 
Chilton-Huddleston  formula.  The  program  was  written  in  FORTRAN  II 
language.  The  source  program  is  listed,  the  logic  diagram  shown  and 
pertinent  results  tabulated  for  five  incident  polar  angles  in  this 
appendix. 

It  was  deemed  advisable  to  check  the  accuracy  of  the  Chilton- 
Huddleston  formula  defined  by  eq.(71), 

a(eo,e,0'  )  =  {CK(0s)+C']{l+cosGosecG]   ,  (71) 

since  the  results  of  this  formula  are  utilized  throughout  this  work.  This 
was  accomplished  by  comparing  the  results  obtained  by  adapting  this  formula 
to  give  the  scattered  dose  rate  values  defined  by  eq.(78), 

SD(Eo,eo,<I>Q;E)e,<J»  =  lOOOEo^(Eo)[CK(0s)+C']{2A$(coSek,-coSek,  +  1)] 


x{l+coseosece!      {(cosg^, +cos6k,+1)/2|  MeV/gra.-se 


(78) 


with  those  obtained  by  Raso  (12)  through  the  Monte  Carlo  technique.  The 
Chilton-Huddleston  formula  was  derived  (14)  from  the  Raso  results. 

Table  8  lists  the  various  input  data  and  variables  utilized  in 
this  program.   Both  the  Chilton-Huddleston  differential  dose  rate  albedo 
results  and  the  Raso  differential  scattered  dose  rate  results  are  tab- 
ulated in  this  appendix  for  an  incident  energy  of  1.252  MeV  and  the  five 
incident  polar  angles,  cos6  =  0.1,  0.25,  0.5,  0.75  and  1.0.   Both  of 
these  results  are  also  obtained  for  an  incident  energy  of  1.00  MeV  and  an 
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incident  polar  angle  of  cosB  =  0.25.  The  Raso  scattered  dose  rate  for 
this  input  data  is  compared  with  Raso' s  Monte  Carlo  results  in  Figure 

22. 


Table  8.      Input  data  and  variables   required   for  the 
IBM- 1620  Chilton-Huddleston  formula  check. 


Symbo 1 


Explanation 


EO  Incident   Photon  Energy,    E0(MeV) 

THETAO  Incident   Polar  Angle,  6  (Radians) 

EACAEO  Energy  Mass  Macroscopic  Gamma  Ray   Absorption  Coefficient 

for  Air,   \i'  (E   )(cm2/gm) 

C  Chilton-Huadleston   Parameter,   C 

CPRIME  Chilton-Huddleston   Parameter,   C 

THETAK  Polar  Angular  Limits,  6.     (radians) 

THETA  Emergent   Polar  Angle,  6  (radians) 

PHI  Emergent   Azimuthal   Angle,   <t>  (radians) 

JTHETA  Fixed   Point  Variable   Defining  Theta  Values 

IHn  Fixed   Point  Variable  Defining  Phi  Values 

COSTHS  Cosine  of  Total  Scattering  Angle,   Cos0 

P  Ratio  of  Emergent   to   Incident  Energies   in  a  Simple  Compton 

Scattering   Process,    p 

COMPXS  Klein-Nishina  Cross  Section  Times   p,    K(0  ) 

CHALBE  Chilton-Huddleston   Albedo 

TVRASO  Raso's  Scattered  Dose  Rate,    kev/gm.-sec. 
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LOGIC     DIAGRAM    FOR    ALBEDO    DETERMINATIONS 
BY     THE     CHILTON- HUDDLESTON  FORMULA 


Start i  \ 

Read  in  programV- 

and    constants  J 


Set    JTHETA=l|- 


Form    DEL0M2 


IPH1  =  IPHIri  |- 


(• 


Form     COSTHS.P,  COMPXS, 
CHALBE.  TVRASO 


-e— |  Set  1PM  =  1 


JTHETA  =  JTHETA*1 


Punch     EO,   THETAO,    CHALBE,     TVRASO 

I 


0 


CD 
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CHILTCN-HUDDLESTCN  FORMULA  ACURACY  CHECK — J.BARAN.  DEC.  1962 
INPUT  DATA— EC=INITIAL  PHCTCN  ENERGY  (MEV).  THET  AC- INIT  I AL 
OBLIQUITY  (RADIANS).  EACAEC-ENERGY  ABS.  CCEFF.  FOR  AIR  AT  EO 
CM.SQ/GM).  C  AND  CPR1ME=CHILTCN-HUDDLESTCN  PARAMETERS. 
DIMENSION  THETAM9).  THETAI8).  PHK12).  CHALBEI 12 ,8 ) , 
1TVRAS0(12.8) 

10  FORMAT  (F5.2.F9.6.F7.4) 

20  FORMAT  (F12.9.F13. 10 ) 

60  FORMAT  ( 6F9.6/6F9.6 ) 


80  FCRMAT<24H 

1C0NCRETE  MEDIUM  ) 


BACKSCATTERING 


.F6.3.  35H  MEV  PHOTONS  FROM  A 


87  FORMAT! 50H 

I69H 
52.5 
(70H 
112.5 

(70H 
172.5 
(52H 


CHILTCN-HUDDLESTON  DIFFERENTIAL  DOSE  ALBEDO) 


AZIMUTH 
/15H 

AZIMUTH 
»/15H 

AZIMUTH 
/15H 


7.5 
POLAR  ) 

67.5 
POLAR  ) 
127.5 
POLAR  ) 


22.5 


37.5 


82.5 


142.5 


97.5 


157.5 


RASC  DIFFERENTIAL  SCATTERED  DOSE  RATE  ( KEV/GM-SEC) ) 


22 
45 
72 


INCIDENT  OBLIQUITY  = 
8     .4IF13.5)/ 
•  4IF13.5)/   13H 
.  4IF13.5)/   13H 
.  4(F13.5)/   13H 


F9.6i 
13H 


32 
60 
84 


8H  RADIANS  .//) 

15     .4F13.5/ 
.4F13.5/ 
.4F13.5/ 
.4F13.5//) 


90  FORMAT 

1 
95  FORMAT 
1 
100  FORMAT 

1 
102  FORMAT 
115  FORMAT  (27H 
120  FORMAT   (13H 
113H 
113H 
113H 
30  READ  10,  EC 

INPUT  ABOVE  IS   1  CARD 
READ  20,   C,  CPRIME 
INPUT  ABOVE  IS   1  CARD 
READ  60.THETAK 
INPUT  ABOVE  IS 
READ  60,  THETA 
INPUT  ABOVE  IS 
READ  60,  PHI 
INPUT  ABOVE  IS 
DC  70  JTHETA*1.8 

DELCM2=EC*EACAEC*0. 523599* < CCSF < THETAK I JTHETA) ) -CCSF ( THETAK! JTHETA 
1+1))) 
DO  65  IPHI=1,12 

THIS  LOOP  CALCULATES  THE  CHILTCN-HUDDLESTCN  ALBEDO  AND  RASCS 
SCATTERED  DOSE  RATE  FOR  EACH  EMERGENT  POLAR  AND  AZIMUTHAL  ANGLE 
CCSTHS=S I NF ( THETAC >*CCSF( PHI ( I  PHI )  ) *S I NF ( THETA ( JTHETA ) ) 
1-CCSF(THETAC)*C0SF( THETA (JTHETA) ) 
P-1./(1.+(EC*(1.-CCSTHS 1/0.511 ) ) 

CCMPXS=(  3.970562     )*  (  P»*2  >  *(  1  .+ <  P**2  >  -  i'*  ( 1.- (  CCSTHS**2  >  )  ) 
CHALBE ( I PH I .JTHETA ) » ( C*CCMPXS+CPR IME ) / ( 1 . + ( CCSF ( THETAC) / 
1CCSF(THETA( JTHETA) ) ) ) 
65  TVRASOI IPHI,JTHETA)«CHALBE( I PH I .JTHETA ) *2000.*DELCM2/ 

1(CCSF(THETAK<JTHETA> )+CCSF ( THETAK ( JTHETA+1 ) ) ) 
70  CONTINUE 

PUNCH  80.   EO 
PUNCH  115,  THETAC 
PUNCH  87 


THETAC,  EACAEC 


2  CARDS 


2  CARDS 


2  CARDS 
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PUNCH  90 

PUNCH  120,  ((CHALBEI IPHI  .JTHETA ), IPH1*1 ,4  ) , JTHETA- 1 ,8 ) 

PUNCH  95 

PUNCH  120,  ( (CHALBEI IPHI » JTHETA) , IPHI =5,8  ) . JTHETA=1,8 ) 

PUNCH  100 

PUNCH  120,  ( (CHALBEI IPHI , JTHETA ) , IPHI-9, 12) »JTHETA*1. 81 

PUNCH  102 

PUNCH  90 

PUNCH  120,  I (TVRASCI IPHI , JTHETA )» I  PHI -1 ,4  ) » JTHETA* 1 ,8 ) 

PUNCH  95 

PUNCH  120,  I (TVRASCI IPHI, JTHETA), IPHI=5. 8  ) , JTHETA-1 ,8 ) 

PUNCH  100 

PUNCH  120,  I  (TVRASCI  IPHI  .JTHETA), IPHI*9, 12) ,JTHETA*1, 8) 

GC  TC  30 

END 


INPUT  DATA 
1.25  1.318146  0.0268 

.064501061  0.0089294690 

.000000  0.200713  0.317650  0.450295  0.644026  0.926770 
1.158899  1.370033  1.570796 

.139626  0.261800  0.383973  0.558506  0.785399  1.047198 
1.256638  1.466077 

.130900  0.392699  0.654499  0.916298  1.178098  1.439897 
1.701697  1.963496  2.225296  2.487095  2.748895  3.010694 
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TABLE  9. 
CHILTCN-HUDDLESTCN  ALBEDO  RESULTS 


BACKSCATTERING  OF  1.250  MEV  PHOTONS  FROM  A  CONCRETE  MEDIUM 
INCIDENT  OBLIQUITY  =  0.000000  RADIANS 


CHILTON- 

HUDDLESTON  DIFFERENTIAL  DOSE 

ALBEDO 

AZIMUTH 

7.5 

22.5 

37.5 

52.5 

POLAR 

e 

.00823 

.00823 

.00823 

.00823 

15 

.00818 

.00818 

.00818 

.00818 

22 

.00809 

.00809 

.00809 

.00809 

32 

.00788 

.00788 

.00788 

.00788 

45 

.00742 

.00742 

.00742 

.00742 

60 

.00644 

.00644 

.00644 

.00644 

72 

.00498 

.00498 

.00498 

.00498 

84 

.00227 

.00227 

.00227 

.00227 

AZIMUTH 

67.5 

82.5 

97.5 

112.5 

POLAR 

8 

.00823 

.00823 

.00823 

.00823 

15 

.00818 

.00818 

.00818 

.00818 

22 

.00809 

.00809 

.00809 

.00809 

32 

.00788 

.00788 

.00788 

.00788 

45 

.00742 

.00742 

.00742 

.00742 

60 

.00644 

.00644 

.00644 

.00644 

72 

.00498 

.00498 

.00498 

.00498 

84 

.00227 

.00227 

.00227 

.00227 

AZIMUTH 

127.5 

142.5 

157.5 

172.5 

POLAR 

8 

.00823 

.00823 

.00823 

.00823 

15 

.00818 

.00818 

.00818 

.00818 

22 

.00809 

.00809 

.00809 

.00809 

32 

.00788 

.00788 

.00788 

.00788 

45 

.00742 

.00742 

.00742 

.00742 

60 

.00644 

.00644 

.00644 

.00644 

72 

.00498 

.00498 

.00498 

.00498 

84 

.00227 

.00227 

.00227 

.00227 

RASO  DIFFERENTIAL  SCATTERED  DOSE  RATE 

(KEV/GM-SEC) 

AZIMUTH 

7.5 

22.5 

37.5 

52.5 

POLAR 

8 

.00293 

.00293 

.00293 

.00293 

15 

.00445 

.00445 

.00445 

.00445 

22 

.00761 

.00761 

.00761 

.00761 

11 

.01637 

.01637 

.01637 

.01637 

.03706 

.03706 

.03706 

.03706 

60 

.04518 

.04518 

.04518 

.04518 

72 

.05865 

.05865 

.05865 

.05865 

84 

.07963 

.07963 

.07963 

.07963 

AZIMUTH 

67.5 

82.5 

97.5 

112.5 

POLAR 

8 

.00293 

.00293 

.00293 

.00293 

w 

.00445 

.00445 

.00445 

.00445 
.00761 

.00761 

.00761 

.00761 

32 

.01637 

.01637 

.01637 

.01637 

45 

.03706 

.03706 

.03706 

.03706 

60 

.04518 

.04518 

.04518 
.05865 

.04518 

n 

.05865 

.05865 

.05865 

84 

.07963 

.07963 

.07963 

.07963 

AZIMUTH 

127.5 

142.5 

157.5 

172.5 

POLAR 

.00293 

.00293 

.00293 

.00293 

15 

.00445 

.00445 

.00445 

.00445 

22 

.00761 

.00761 

.00761 

.00761 

32 

.01637 

.01637 

.01637 

.01637 
.03706 

45 

.03706 

.03706 

.03706 

60 

.04518 

.04518 

.04518 

.04518 

72 

.05865 

.05865 

.05865 

.05865 

84 

.07963 

.07963 

.07963 

.07963 
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TABLE  9  CCNT. 
CHILTCN-HUDDLESTON  ALBEDO  RESULTS 


BACKSCATTERING  OF  1.250  MEV  PHOTONS  FROM  A  CONCRETE  MEDIUM 
INCIDENT  OBLIQUITY  «   .722730  RADIANS 

CHILTON-HUDDLESTON  DIFFERENTIAL  DOSE  ALBEDO 


AZIMUTH 

7.5 

22.5 

37.5 

52.5 

POLAR 

e 

.01038 

.01036 

.01032 

.01026 

15 

.01064 

.01059 

.01051 

.01039 

22 

.01091 

.01083 

.01069 

.01049 

32 

.01133 

.01119 

.01093 

.01060 

45 

.01197 

.01169 

.01120 

.01062 

60 

.01271 

.01214 

.01121 

.01019 

72 

.01252 

.01162 

.01023 

.00882 

84 

.00793 

.00705 

.00580 

.00465 

AZIMUTH 

67.5 

82.5 

97.5 

112.5 

POLAR 

8 

.01019 

.01012 

.01004 

.00997 

15 

.01025 

.01010 

.00996 

.00983 

22 

.01027 

.01005 

.00984 

.00965 

32 

.01024 

.00990 

.00959 

.00932 

45 

.01003 

.00950 

.00905 

.00869 

60 

.00925 

.00849 

.00789 

.00745 

72 

.00766 

.00678 

.00615 

.00570 

84 

.00379 

.00320 

.00281 

.00255 

AZIMUTH 

127.5 

142.5 

157.5 

172.5 

POLAR 

8 

.00991 

.00986 

.00983 

.00981 

15 

.00972 

.00963 

.00958 

.00955 

22 

.00950 

.00938 

.00930 

.00926 

32 

.00911 

.00895 

.00885 

.00880 

45 

.00841 

.00821 

.00809 

.00802 

60 

.00713 

.00690 

.00676 

.00670 

72 

.00539 

.00519 

.00506 

.00500 

8  4 

.00238 

.00227 

.00220 

.00217 

RASO  DIFFERENTIAL  SCATTERED  DOSE  RATE 

(KEV/GM-SEC) 

AZIMUTH 

7.5 

22.5 

37.5 

52.5 

POLAR 

.00369 

.00368 

.00367 

.00365 

15 

.00579 

.00577 

.00572 

.00565 

22 

.01027 

.01020 

.01006 

.00988 

3  2 

.02354 

.02324 

.02271 

.02202 

45 

.05978 

.05838 

.05595 

.05303 

60 

.08915 

.08516 

.07865 

.07148 

72 

.14725 

.13661 

.12029 

.10378 

84 

.27836 

.24763 

.20370 

.16340 

AZIMUTH 

67.5 

82.5 

97.5 

112.5 

POLAR 

8 

.00362 

.00360 

.00357 

.00354 

15 

.00558 

.00550 

.00542 

.00535 

22 

.00967 

.00946 

.00926 

.00909 

32 

.02128 

.02056 

.01991 

.01936 

45 

.05009 

.04743 

.04519 

.04339 

60 

.06494 

.05956 

.05539 

.05227 

72 

.09007 

.07974 

.07231 

.06707 

84 

.13319 

.11252 

.09878 

.08968 

AZIMUTH 

127.5 

142.5 

157.5 

172.5 

POLAR 

8 

.00352 

.00350 

.00349 

.00349 

15 

.00529 

.00524 

.00521 

.00520 

22 

.00894 

.00883 

.00876 

.00872 

32 

.01892 

.01859 

.01838 

.01827 

4  5 

.04201 

.04102 

.04039 

.04007 

60 

.05001 

.04845 

.04746 

.04699 

72 

.06344 

.06102 

.05952 

.05881 

84 

.08367 

.07978 

.07743 

.07633 

TABLE  9  CCNT. 
CHILTCN-HUDOLESTCN  ALBEDC  RESULTS 
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BACK.SCATTERING  OF  1.. 

250  MEV  PHOTONS  FR 

OM  A  CONCRETE 

MEDIUM 

INCIDENT 

OBLIQUITY  * 

1.047198  RADIANS 

CHILTCN-I 

-IUDDLESTCN  DIFFERENTIAL  DOSE  ALBEDO 

AZIMUTH 

7.5 

22.5 

37.5 

52.5 

POLAR 

8 

.01357 

.01352 

.01342 

.01328 

15 

.01429 

.01417 

.01395 

.01365 

22 

.01518 

.01495 

.01456 

.01405 

11 

.01684 

.01638 

.01560 

.01467 

.02014 

.01907 

.01735 

.01552 

60 

.02647 

.02370 

.01976 

.01616 

72 

.03250 

.02721 

.02048 

.01514 

84 

.02589 

.01997 

.01328 

.00872 

AZIMUTH 

67.5 

82.5 

97.5 

112.5 

POLAR 

8 

.01312 

.01295 

.01278 

.01263 

15 

.01332 

.01298 

.01267 

.01239 

22 

.01351 

.01299 

.01252 

.01213 

32 

.01374 

.01292 

.01224 

.01169 

45 

.01390 

.01262 

.01165 

.01094 

60 

.01346 

.01160 

.01035 

.00952 

72 

.01168 

.00957 

.00828 

.00747 

84 

.00615 

.00475 

.00397 

.00352 

AZIMUTH 

127.5 

142.5 

157.5 

172.5 

POLAR 

8 

.01250 

.01239 

.01232 

.01229 

15 

.01216 

.01199 

.01187 

.01181 

22 

.01182 

.01159 

.01144 

.01136 

11 

.01128 
.01043 

.01099 

.01080 

.01071 

.01008 

.00987 

.00976 

60 

.00896 

.00859 

.00837 

.00827 

72 

.00696 

.00663 

.00644 

.00635 

64 

.00324 

.00307 

.00297 

.00292 

RASO  DIFFERENTIAL  SCATTERED  DOSE  RATE 

(KEV/GM-SEC) 

AZIMUTH 

7.5 

22.5 

37.5 

52.5 

POLAR 

8 

.00482 

.00481 

.00477 

.00472 

15 

.00778 

.00771 

.00759 

.00743 

22 

.01429 

.01408 

.01370 

.01323 

11 

.03498 

.03403 

.03240 

.03047 

.10060 

.09522 

.08664 

.07749 

60 

.18570 

.16627 

.13862 

.11335 

72 

.38211 

.31996 

.24078 

.17807 

84 

.90824 

.70085 

.46615 

.30602 

AZIMUTH 

67.5 

82.5 

97.5 

112.5 

POLAR 

8 

.00466 

.00460 

.00454 

.00449 

w 

.00725 

.00707 

.00689 

.00674 

.01272 

.01223 

.01179 

.01142 

32 

.02855 

.02684 

.02542 

.02429 

45 

.06942 

.06300 

.05816 

.05462 

ft 

.09441 

.08137 

.07263 

.06677 

.13734 

.11252 

.09737 

.08790 

84 

.21579 

.16690 

.13959 

.12356 

AZIMUTH 

127.5 

142.5 

157.5 

172.5 

POLAR 

8 

.00444 

.00440 

.00438 

.00437 

15 

.00662 

.00652 

.00646 

.00643 

22 

.01112 

.01091 

.01077 

.01069 

32 

.02344 

.02283 

.02244 

.02225 

45 

.05209 

.05037 

.04929 

.04877 

60 

.06285 

.06029 

.05874 

.05801 

72 

.08186 

.07803 

.07576 

.07470 

84 

.11376 

.10773 

.10421 

.10258 
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TABLE  9  CCNT. 
CHILTCN-HUDDLESTCN  ALBEDC 


RESULTS 


BACKSCATTERING  OF  1.250  MEV  PHOTONS  FROM  A  CONCRETE  MEDIUM 
INCIDENT  OBLIQUITY  =  1.318146  RADIANS 


CHILTON- 

HUDDLESTON  DIFFERENTIAL  DOSE  ALBEDO 

AZIMUTH 

7.5 

22.5 

37.5 

52.5 

POLAR 

8 

.01902 

.01890 

.01867 

.01836 

15 

.02082 

.02052 

.01997 

.01927 

22 

.02322 

.02262 

.02158 

.02032 

11 

.02827 

.02688 

.02461 

.02211 

.03990 

.03598 

.03029 

.02494 

60 

.06650 

.05442 

.03955 

.02828 

72 

.09815 

.07268 

.04567 

.02859 

84 

.09059 

.06084 

.03328 

.01842 

AZIMUTH 

67.5 

82.5 

97.5 

112.5 

POLAR 

8 

.01801 

.01764 

.01728 

.01696 

w 

.01851 

.01777 

.01710 

.01654 

.01905 

.01789 

.01691 

.01613 

32 

.01985 

.01800 

.01658 

.01553 

45 

.02083 

.01794 

.01598 

.01465 

60 

.02126 

.01714 

.01469 

.01318 

72 

.01960 

.01496 

.01245 

.01101 

84 

.01160 

.00843 

.00684 

.00596 

AZIMUTH 

127.5 

142.5 

157.5 

172.5 

POLAR 

8 

.01669 

.01648 

.01634 

.01627 

15 

.01608 

.01575 

.01552 

.01541 

22 

.01553 

.01510 

.01482 

.01469 

u 

.01478 
.01376 

.01426 

.01393 

.01378 

.01318 

.01283 

.01266 

60 

.01224 

.01164 

.01129 

.01113 

72 

.01014 

.00960 

.00929 

.00915 

84 

.00545 

.00515 

.00497 

.00489 

RASO  DIFFERENTIAL  SCATTERED  DOSE  RATE  (KEV/GM-SEC) 

AZIMUTH 

7.5 

22.5 

37.5 

52.5 

POLAR 

8 

.00676 

.00672 

.00664 

.00653 

15 

.01133 

.01117 

.01087 

.01049 

22 

.02186 

.02130 

.02032 

.01913 

32 

.05872 

.05582 

.05110 

.04593 

45 

.19923 

.17967 

.15125 

.12455 

60 

.46644 

.38170 

.27739 

.19835 

72 

1.15391 

.85453 

.53695 

.33623 

84 

3.17828 

2.13434 

1.16781 

.64639 

AZIMUTH 

67.5 

82.5 

97.5 

112.5 

POLAR 

8 

.00640 

.00627 

.00614 

.00603 

15 

.01008 

.00967 

.00931 

.00900 

22 

.01793 

.01684 

.01592 

.01518 

32 

.04123 

.03739 

.03445 

.03226 

45 

.10402 

.08960 

.07980 

.07319 

7§ 

ikm 

mil 

-Mil 

:92?t9 

84 

.40712 

.29598 

.24009 

.20943 

AZIMUTH 

127.5 

142.5 

157.5 

172.5 

POLAR 

8 

.00593 

.00586 

.00581 

.00578 

15 

.00876 

.00857 

.00845 

.00839 

22 

.01462 

.01421 

.01395 

.01383 

11 

.03069 

.02961 

.02894 

.02862 

.06874 

.06584 

.06407 

.06324 

60 

.08584 

.08167 

.07921 

.07806 

72 

.11922 

.11294 

.10929 

.10760 

84 

.19147 

.18069 

.17450 

.17166 
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TABLE  9  CCNT. 
CHILTGN-HUDDLESTCN  ALBEDC 


RESULTS 


BACKSCATTERING  OF  1.250  MEV  PHOTONS  FROM  A  CONCRETE  MEDIUM 
INCIDENT  OBLIQUITY  =  1.470630  RADIANS 


CHILTON- 

HUDDLESTCN  DIFFERENTIAL  DOSE 

ALBEDC 

AZIMUTH 

7.5 

22.5 

37.5 

52.5 

POLAR 

.02448 

.02427 

.02388 

.02336 

15 

.02765 

.02711 

.02614 

.02493 

22 

.03208 

.03096 

.02904 

.02679 

11 

.04198 

.03915 

.03469 

.03004 

.06644 

.05771 

.04575 

.03537 

60 

.12638 

.09734 

.06456 

.04227 

72 

.20220 

v  .13963 

.07937 

.04539 

84 

.21149 

.13379 

.06752 

.03489 

AZIMUTH 

67.5 

82.5 

97.5 

112.5 

POLAR 

8 

.02277 

.02217 

.02159 

.02107 

\\ 

.02364 

.02242 
.02267 

.02134 

.02045 

.02459 

.02110 

.01987 

32 

.02606 

.02299 

.02073 

.01913 

45 

.02803 

.02325 

.02019 

.01821 

60 

.02975 

.02298 

.01920 

.01699 

72 

.02919 

.02146 

.01750 

.01530 

84 

.02102 

.01491 

.01196 

.01037 

AZIMUTH 

127.5 

142.5 

157.5 

172.5 

POLAR 

8 

.02065 

.02032 

.02010 

.01999 

15 

.01974 

.01923 

.01889 

.01873 

22 

.01896 

.01832 

.01792 

.01772 

11 

.01801 

.01726 

.01680 

.01658 

.01694 

.01612 

.01563 

.01540 

60 

.01564 

.01480 

.01432 

.01410 

72 

.01401 

.01323 

.01278 

.01257 

84 

.00945 

.00891 

.00860 

.00845 

RASC  DIFFERENTIAL  SCATTERED  DOSE  RATE 

IKEV/GM-SEC) 

AZIMUTH 

7.5 

22.5 

37.5 

52.5 

POLAR 

8 

.00870 

.00863 

.00849 

.00831 

15 

.01505 

.01476 

.01423 

.01357 

22 

.03020 

.02915 

.02734 

.02522 

32 

.08718 

.08130 

.07205 

.06240 

45 

.33173 

.28813 

.22842 

.17663 

60 

.88637 

.68271 

.45284 

.29649 

72 

2.37728 

1.64158 

.93320 

.53364 

84 

7.41934 

4.69351 

2.36873 

1.22425 

AZIMUTH 

67.5 

82.5 

97.5 

112.5 

POLAR 

8 

.00810 

.00788 

.00768 

.00749 

15 

.01287 

.01220 

.01162 

.01113 

22 

.02315 

.02134 

.01986 

.01871 

32 

.05413 

.04774 

.04306 

.03973 

45 

.13998 

.11609 

.10080 

.09096 

60 

.20865 

.16117 

.13469 

.11917 

11 

-Mm 

'.Will 

•.mil 

llllU 

AZIMUTH 

127.5 

142.5 

157.5 

172.5 

POLAR 

.00734 

.00722 

.00715 

.00711 

15 

.01075 

.01047 

.01028 

.01019 

22 

.01785 

.01725 

.01687 

.01668 

11 

.03741 

.03585 

.03490 

.03444 

.08457 

.08049 

.07805 

.07691 

60 

.10969 

.10386 

.10046 

.09889 

11 

.16473 

.15555 

.15026 

.14782 

.33181 

.31269 

.30176 

.29676 

83 


TABLE  9  CCNT. 
CHILTON-HUDDLESTON  ALBEDO 


RESULTS 


BACKSCATTERING  CF  1.000  MEV  PHCTCNS  FROM  A  CONCRETE  MEDIUM 
INCIDENT  OBLIQUITY  =  1.318146  RADIANS 


CHILTON- 
AZIMUTH 
POLAR 
8 

15 

22 

32 

45 

60 

72 

84 
AZIMUTH 
POLAR 
8 

15 

22 

32 

45 

60 

72 

84 
AZIMUTH 
POLAR 
8 

15 

22 

32 

45 

60 


11 


HUDDLESTON  DIFFERENTIAL 
7.5 


.02240 
.02428 
.02681 
.03215 
.04433 
.07076 
.09855 
.08453 
67.5 

.02134 
.02186 
.02240 
.02320 
.02414 
.02440 
.02233 
.01313 
127.5 

.01997 
.01933 
.01873 
.01790 
.01675 
.01492 
.01236 
.00664 


RASO  DIFFERE 
AZIMUTH 
POLAR 


.00666 
.01105 
.02109 
.05581 
.18501 
.41483 
.96848 
2.47880 
67.5 

.00634 
.00994 
.01762 
.04027 
.10075 
.14308 
.21951 
.38521 
127.5 

.00593 
.00879 
.01474 
.03108 
.06990 
.08749 
.12152 
.19489 


ENTIAL  DOSE 

ALBEDO 

22.5 

37.5 

52.5 

.02227 

.02203 

.02171 

.02396 

.02339 

.02265 

.02617 

.02507 

.02374 

.03066 

.02825 

.02559 

.04022 

.03421 

.02852 

.05883 

.04369 

.03187 

.07540 

.04933 

.03185 

.05998 

.03503 

.02028 

82.5 

97.5 

112.5 

.02095 

.02058 

.02025 

.02108 

.02039 

.01980 

.02119 

.02016 

.01935 

.02126 

.01977 

.01868 

.02109 

.01903 

.01766 

.02002 

.01745 

.01589 

.01740 

.01476 

.01326 

.00976 

.00808 

.00717 

142.5 

157.5 

172.5 

.01975 

.01960 

.01953 

.01898 

.01875 

.01864 

.01829 

.01800 

.01787 

.01737 

.01704 

.01688 

.01615 

.01579 

.01561 

.01431 

.01395 

.01378 

.01181 

.01150 

.01135 

.00633 

.00615 

.00606 

ED  DOSE  RATE 

(KEV/GM-SEC) 

22.5 

37.5 

52.5 

.00662 

.00655 

.00645 

.01090 

.01064 

.01031 

.02059 

.01973 

.01868 

.05323 

.04903 

.04443 

.16788 

.14276 

.11901 

.34490 

.25612 

.18684 

.74094 

.48474 

.31304 

1.75887 

1.02739 

.59488 

82.5 

97.5 

112.5 

.00623 

.00612 

.00602 

.00959 

.00928 

.00901 

.01667 

.01587 

.01523 

.03690 

.03433 

.03243 

.08802 

.07945 

.07372 

.11741 

.10233 

.09320 

.17102 

.14508 

.13035 

.28633 

.23702 

.21036 

142.5 

157.5 

172.5 

.00587 

.00582 

.00580 

.00864 

.00853 

.00848 

.01439 

.01417 

.01406 

.03015 

.02958 

.02930 

.06740 

.06589 

.06517 

.08391 

.08180 

.08081 

.11614 

.11300 

.11155 

.18564 

.18033 

.17788 

R4 


APPENDIX  E 

Description  and  Explanation  of  the  IBM- 1620 
Computer  Program  Used  for  Calculating  the 
Differential  Dose  Rate  AJbedo 


This  computer  code  was  written  to  calculate  the  differential  dose 
rate  albedo  defined  by  eq.(79).   i.e., 


a(G  ,4  '©.©dfl  =  1.293[CK(G  )+C']  f  l+cos0sec©  ]   dQ 
—  o  o'  *■    s      v         oJ 


(79) 


The  program  was  written  in  FORTRAN  II  language.  The  source  program  is 
listed,  the  logic  diagram  shown  and  pertinent  results  tabulated  in  this 
appendix.   The  results  are  tabulated  for  the  five  incident  polar  angles, 
cos6o  =  0.1,  0.25,  0.5,  0.75  and  1.00.   Selected  portions  of  these  results 
are  plotted  in  Figures  23  through  27,  Table  10  defines  the  various  symbols 
utilized  in  this  computer  code. 


Table  10.   Input  data  and  variables  required  for 
the  IBM- 1620  differential  dose  rate 
albedo  computer  program. 


Symbol* 


Explanation 


KMAX 

DEL0ME 

CHRTN0 

0LEGNP 

TOT  ALB 

ALBSUM 

ALBDDR 

PHA 

GAMMA 

C0STHA 

SINTHA 

GAMMA.1 

IM 

TC 


Degree  of  Gaussian  Quadrature  Utilized,    k 

Solid   Angle  Subtended,    (4kl  +  ,-q\,  Xcosg^,  -cos©  ,       ),AQ. 

Christoffel  Numbers  +  J 

Zeroes  of    the  Legendre   Polynomials 

Total  Dose  Rate   Albedo   (Integrated) 

Total   Dose   Rate   Albedo    (Summed) 

Dose   Rate   Albedo   (Dose  Rate   Out/Dose  Rate   In) 

Emergent   Azimuthal   Angle,   4  (Radians) 

Integration  Variable 

Cosine  of   the  Emergent  Polar  Angle,   cos© 

Sine   of    the   Emergent   Polar  Angle,    sin© 

Integration   Variable 

Fixed   Point  Emergent   Polar  Angle   Integration  Variable 

Fixed  Point  Emergent   Azimuthal   Angle   Integration  Variable 


k' 


*  Additional  utilized  symbols  are  defined  in  Table  8. 
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LOGIC     DIAGRAM     FOR     THE 
DIFFERENTIAL     DOSE     RATE     ALBEDO 


Start: 

Read  in  program] »-|  Set   JTHETA  =l| HSet    IPHI  -  1  | 

and   constants 


|Set    JTHETA  =  JTHETA^1 


|  Set  IC  =  xc^Th 


Form     COSTHS,   P,  COMPXS, 
ALBDDR,    ALBSUM 


Set    IPHI=IPHI+l| 


HSet     IC  =  1  | HForrn    PHA~| 


r 


I  Set    IM  =  1~[ 


Form    COSTHA,  COSTHS, 

P,  COMPXS,  GAMMA 


jSet  IM=1M*1  | 


Punch    EO,  THETO,    ALBSUM 
TOTALB,    ALBDDR 


J 


END 
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C      DIFFERENTIAL  DCSE  RATE  ALBEDO  BY  J. A.  BARAN  MARCH.63 

C      INPUT  DATA— EC=INITIAL  PHCTCN  ENERGY  (MEV).  THETAOMNITIAL 

C      OBLIQUITY.  C  AND  CPR IME=CHILTON-HUDDLESTON  PARAMETERS. 

DIMENSION  OLEGNP(IO)  ,THETA(8).  PHK12).  ALBDDR(12.8)  .CHRTNC(IO). 
1DELOMEI8) 
10  FORMAT  (F6.3.F9.6.I3) 
20  FORMAT  ( F12 .9.F13. 10 ) 
22  FORMATfFll.8) 
60  FORMAT  (6F9.6/6F9.6) 
80  F0RMATI24H        BACKSCATTERING 
1C0NCRETE  MEDIUM  ) 


!F   .F6.3.  35H  MEV  PHOTONS  FROM  A 


90  FORMAT 

1 
95  FORMAT 


100  FORMAT 


(69H 

AZIMUTH 

52.5 

/15H 

(70H 

AZIMUTH 

112.5 

»/15H 

(70H 

AZIMUTH 

172.5 

/15H 

22.5 


37.5 


82.5 


142.5 


97.5 


157.5 


105 
110 


115 
120 


125 

30 


FORMAT  (44H 

FORMAT  (75H 
1PER  STERADIAN 

FORMAT  (27H 

FORMAT  (13H 

113H  22 

113H  45 

113H  72 

FORMAT  (44H 


7.5 
POLAR  ) 

67.5 
POLAR  ) 
127.5 
POLAR  ) 
TOTAL  DOSE  RATE  ALBEDO  (SUMMATION)   =»   F7.5) 

DOSE  RATE  ALBEDO— DOSE  RATE  CUT/DOSE  RATE  IN. 
//) 

F9.6.  8H  RADIANS  .//) 

15     .4F13.5/ 
32     .4F13.5/ 
60     .4F13.5/ 
84     .4F13.5//) 
(INTEGRATED)  »    F7.5.//) 


INCIDENT  OBLIQUITY 

8     .4IF13.5)/  13H 

.  4IF13.5)/   13H 

.  4IF13.5)/   13H 

.  4(F13.5)/   13H 
TOTAL  DOSE  RATE  ALBEDC 


READ  10,  EO,  THETAO.  KMAX 
C      INPUT  ABOVE  IS   1  CARD 

READ  20,   C,  CPRIME 
C      INPUT  ABOVE  IS   1  CARD 

READ  60,  THETA 
C      INPUT  ABOVE  IS   2  CARDS 

READ  60,  PHI 
C      INPUT  ABOVE  IS   2  CARDS 

READ  60,  DELOME 
C      INPUT  ABOVE  IS   2  CARDS 

D016I=1,KMAX 

READ22.CHRTNOI I ) 
16  READ22,OLEGNP(I) 
C      INPUT  ABOVE  IS  12  CARDS 

TOTALB  =  0. 

ALBSUM  =  0.0 

DO  70  JTHETA=1,8 

DO  65  IPHI=1,12 

COSTHS=SINF(THETAC)*COSFIPHI(IPHI) )*SINF ( THETA IJTHETA) ) 
1-C0SF1 THETAO >*COSF( THETA (JTHETA)) 

P=1./(1.+(EO*(1.-CCSTHS)/0.511) ) 

COMPXS=( 3.970  562     )» ( P**2 ) » ( 1 .+ ( P**2 )-P* ( 1.- ( C0STHS**2 ) )) 

ALBDDRI IPHI , JTHETA)  =  (  1.293   «COSF 1 THETAO )*( C*COMPXS+CPRIME ))/ ( 
1C0SFITHETA1 JTHETA) ) +COSF ( THETAO ) ) 
65  ALBSUM  =  ALBSUM  +  DELOME (JTHETA )  *  ALBDDR ( I  PHI .JTHETA)  #  2. 
C      THIS  LOOP  CALCULATES  THE  DOSE  RATE  ALBEDO 
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70  CONTINUE 

DC  7  IC'ltKMAX 

THIS  IC  LCCP  INTEGRATES  OVER  THE  EMERGENT  AZIMUTHAL  ANGLES 
PHA=(CLEGNPUC)*3. 1415927)  +  3.1415927 
GAMMA  =  0. 
DO  6  IM=1,KMAX 

THIS  IM  LOOP  INTEGRATES  OVER  THE  EMERGENT  POLAR  ANGLES 
COSTHA=(OLEGNP( IM1/2. 1+0.5 
SINTHA=SQRTF( l.-CCSTHA*CCSTHA> 

CCSTHS=SINF(THETAC)*CCSF(PHA)*SINTHA  -  (CCSFI THETAC)*CCSTHA) 
P=l. / I l.+< EC* tl.-COSTHS 1/0.511) ) 

CCMPXS=( 3.970562     )*( P**2 )*( 1 .+ ( P**2 )-P* ( l.-l CCSTHS**2 ) ) ) 
GAMMA1=I (2.03104*CCSF(THETAC)*(C*CCMPXS+CPRIME) )/ (CCSTHA+CCSF( THET 
1A0) ))  *  CHRTNC(IM) 

6  GAMMA=GAMMA  +  GAMMA 1 

7  TCTALB  =  TCTALB  +  (GAMMA   *  CHRTNC(IC)) 
PUNCH  80,   EC 

PUNCH  115,  THETAC 

PUNCH  105.  ALBSUM 

PUNCH  125.  TCTALB 

PUNCH  110 

PUNCH  90 

PUNCH  120,  <(ALBDDR(IPHI,JTHETA).IPHI»1,4  ) . JTHETA-1,8 ) 

PUNCH  95 

PUNCH  120,  t(ALBDDR( IPHI . JTHETA I , IPHI »5 ,8  ) , JTHETA-1,8 ) 

PUNCH  100 

PUNCH  120,  ( (ALBDDRI IPHI, JTHETA), IPHI*9, 12). JTHETA-1,8) 

GC  TC  30 

END 


INPUT  DATA 
1.252  1.318146   6 
.064501061  0.0089294690 

.139626  0.261800  0.383973  0.558506  0.785399  1.047198 
1.256638  1.466077 

.130900  0.392699  0.654499  0.916298  1.178098  1.439897 
1.701697  1.963496  2.225296  2.487095  2.748895  3.010694 
.00525    .00785     .0131      .026     .0525     .0525 
.0525     .0525 
.46791393 

.23861919 
.36076157 
.66120939 
.17132449 
.93246951 
.17132449 

-  .93246951 
.36076157 

-  .66120939 
.46791393 

-  .23861919 
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TABLE  11. 
DIFFERENTIAL  DCSE  RATE  ALBEDC 


RESULTS 


BACKSCATTERING  OF  1.252  MEV  PHOTONS  FROM  A  CONCRETE  MEDIUM 
INCIDENT  OBLIQUITY  =  0.000000  RADIANS 


TOTAL  DOSE  RATE  ALBEDC 
TOTAL  DOSE  RATE  ALBEDC 


(SUMMATION) 
(INTEGRATED) 


.11410 
.11509 


DOSE  RATE  ALBEDO— DOSE  RATE  OUT/DOSE  RATE  IN. PER  STERADIAN 


AZIMUTH 

7.5 

22.5 

37.5 

52.5 

POLAR 

8 

.01074 

.01074 

.01074 

.01074 

15 

.01094 

.01094 

.01094 

.01094 

22 

.01127 

.01127 

.01127 

.01127 

32 

.01200 

.01200 

.01200 

.01200 

45 

.01355 

.01355 

.01355 

.01355 

60 

.01663 

.01663 

.01663 

.01663 

72 

.02084 

.02084 

.02084 

.02084 

8*4 

.02804 

.02804 

.02804 

.02804 

AZIMUTH 

67.5 

82.5 

97.5 

112.5 

POLAR 

e 

.01074 

.01074 

.01074 

.01074 

15 

.01094 

.01094 

.01094 

.01094 

22 

.01127 

.01127 

.01127 

.01127 

32 

.01200 

.01200 

.01200 

.01200 

45 

.01355 

.01355 

.01355 

.01355 

60 

.01663 

.01663 

.01663 

.01663 

72 

.02084 

.02084 

.02084 

.02084 

8': 

.02804 

.02804 

.02804 

.02804 

AZIMUTH 

127.5 

142.5 

157.5 

172.5 

POLAR 

8 

.01074 

.01074 

.01074 

.01074 

15 

.01094 

.01094 

.01094 

.01094 

22 

.01127 

.01127 

.01127 

.01127 

32 

.01200 

.01200 

.01200 

.01200 

45 

.01355 

.01355 

.01355 

.01355 

60 

.01663 

.01663 

.01663 

.01663 

72 

.02084 

.02084 

.02084 

.02084 

8  4 

.02804 

.02804 

.02804 

.02804 

8<! 


TABLE  11  CONT. 
DIFFERENTIAL  DOSE  RATE  ALBEDO  RESULTS 


BACKSCATTERING  OF  1.252  MEV  PHOTONS  FROM  A  CONCRETE  MEDIUM 
INCIDENT  OBLIQUITY  =   .722730  RADIANS 


TOTAL  DOSE  RATE  ALBEDO 
TOTAL  DOSE  RATE  ALBEDO 


(SUMMATION) 
(INTEGRATED) 


.12711 
.12905 


DOSE  RATE  ALBEDO— DOSE  RATE  OUT/DOSE  RATE  IN. PER  STERADIAN 


AZIMUTH 

7.5 

22.5 

37.5 

52.5 

POLAR 

8 

.01016 

.01013 

.01009 

.01004 

15 

.01067 

.01062 

.01053 

.01041 

22 

.01140 

.01131 

.01116 

.01096 

32 

.01294 

.01278 

.01246 

.01211 

*5 

.01640 

.01601 

.01535 

.01454 

60 

.02462 

.02351 

.02172 

.01974 

72 

.03924 

.03641 

.03206 

.02766 

84 

.07350 

.06538 

.05379 

.04314 

AZIMUTH 

67.5 

82.5 

97.5 

112.5 

POLAR 

8 

.00997 

.00989 

.00982 

.00975 

15 

.01027 

.01013 

.00998 

.00986 

22 

.01073 

.01050 

.01028 

.01008 

32 

.01170 

.01130 

.01095 

.01065 

45 

.01374 

.01301 

.01239 

.01190 

60 

.01793 

.01645 

.01529 

.01443 

72 

.02400 

.02125 

.01927 

.01788 

84 

.03517 

.02971 

.02608 

.02368 

AZIMUTH 

127.5 

142.5 

157.5 

172.5 

POLAR 

8 

.00969 

.00964 

.00961 

.00959 

15 

,00975 

.00966 

.00960 

.00957 

22 

.00992 

.00980 

.00972 

.00967 

32 

.01040 

.01022 

.01011 

.01005 

45 

.01152 

.01125 

.01108 

.01099 

60 

.01381 

.01338 

.01311 

.01298 

72 

.01691 

.01626 

.01586 

.01568 

84 

.02210 

.02107 

.02045 

.02016 
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TABLE  11  CCNT. 
DIFFERENTIAL  DCSE  RATE  ALBEDO  RESULTS 


BACKSCATTER1NG  OF  1.252  MEV  PHCTCNS  FROM  A  CONCRETE  MEDIUM 
INCIDENT  OBLIQUITY  ■=  1.047198  RADIANS 

TOTAL  DOSE  RATE  ALBEDO  (SUMMATION)   »  .14837 
TOTAL  DOSE  RATE  ALBEDO  (INTEGRATED)  =  .15259 

DOSE  RATE  ALBEDO— DCSE  RATE  OUT/DOSE  RATE  IN. PER  STERADIAN 


AZIMUTH 

7.5 

22.5 

37.5 

52.5 

POLAR 

8 

.00885 

.00881 

.00875 

.00866 

15 

.00955 

.00947 

.00932 

.00912 

22 

.01057 

.01041 

.01013 

.00978 

32 

.01282 

.01247 

.01187 

.01117 

45 

.01839 

.01741 

.01584 

.01417 

60 

.03418 

.03060 

.02551 

.02086 

72 

.06789 

.05685 

.04278 

.03164 

84 

.15992 

.12339 

.08206 

.05387 

AZIMUTH 

67.5 

82.5 

97.5 

112.5 

POLAR 

8 

.00855 

.00844 

.00833 

.00823 

15 

.00890 

.00868 

.00847 

.00828 

22 

.00941 

.00904 

.00872 

.00844 

32 

.01046 

.00984 

.00931 

.00890 

45 

.01269 

.01152 

.01063 

.00998 

60 

.01738 

.01498 

.01337 

.01229 

72 

.02440 

.01999 

.01730 

.01562 

84 

.03798 

.02938 

.02457 

.02175 

AZIMUTH 

127.5 

142.5 

157.5 

172.5 

POLAR 

8 

.00815 

.00808 

.00803 

.00801 

15 

.00813 

.00801 

.00793 

.00789 

2? 

.00823 

.00807 

.00796 

.00791 

32 

.00859 

.00837 

.00822 

.00815 

45 

.00952 

.00921 

.00901 

.00892 

60 

.01157 

.01110 

.01081 

.01068 

72 

.01454 

.01386 

.01346 

.01327 

84 

.02003 

.01897 

.01835 

.01806 
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TABLE  11  CCNT. 
DIFFERENTIAL  DCSE  RATE  ALBEDO  RESULTS 


BACKSCATTERING  CF  1.252  MEV  PHOTONS  FROM  A  CONCRETE  MEDIUM 
INCIDENT  OBLIQUITY  >=  1.318146  RADIANS 

TOTAL  DOSE  RATE  ALBEDO  (SUMMATION)   ■  .16153 
TOTAL  DOSE  RATE  ALBEDO  (INTEGRATED)  «  .171X6 

DOSE  RATE  ALBEDO — DCSE  RATE  CUT/DOSE  RATE  IN. PER  STERADIAN 


AZIMUTH 

7.5 

22.5 

37.5 

52.5 

POLAR 

8 

.00620 

.00616 

.00608 

.00598 

15 

.00695 

.00685 

.00667 

.00644 

22 

.00808 

.00787 

.00751 

.00707 

32 

.01076 

.01023 

.00936 

.00841 

45 

.01821 

.01642 

.01382 

.01138 

60 

.04293 

.03512 

.02552 

.01825 

72 

.10254 

.07592 

.04769 

.02986 

84 

.27995 

.18793 

.10279 

.05688 

AZIMUTH 

67.5 

82.5 

97.5 

112.5 

POLAR 

8 

.00587 

.00574 

.00563 

.00552 

15 

.00618 

.00594 

.00571 

.00552 

22 

.00663 

.00623 

.00588 

.00561 

32 

.00755 

.00685 

.00631 

.00591 

45 

.00951 

.00819 

.00729 

.00669 

60 

.01372 

.01106 

.00948 

.00851 

72 

.02047 

.01563 

.01301 

.01150 

84 

.03583 

.02605 

.02113 

.01843 

AZIMUTH 

127.5 

142.5 

157.5 

172.5 

POLAR 

8 

.00544 

.00537 

.00532 

.00530 

15 

.00537 

.00526 

.00518 

.00515 

22 

.00540 

.00525 

.00516 

.00511 

32 

.00562 

.00542 

.00530 

.00524 

45 

.00628 

.00602 

.00585 

.00578 

60 

.00790 

.00751 

.00729 

.00718 

72 

.01059 

.01003 

.00971 

.00956 

84 

.01685 

.01590 

.01536 

.01511 
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TABLE  11  CCNT. 
DIFFERENTIAL  DCSE  RATE  ALBEDO  RESULTS 


BACKSCATTERING  CF  1.252  MEV  PHOTONS  FROM  A  CONCRETE  MEDIUM 
INCIDENT  OBLIQUITY  «  1.470630  RADIANS 


TOTAL  DOSE  RATE  ALBEDO  (SUMMATION) 
TOTAL  DOSE  RATE  ALBEDO  (INTEGRATED) 


.12092 
.13555 


DOSE  RATE  ALBEDO— DCSE  RATE  CUT/DOSE  RATE  IN. PER  STERADIAN 


AZIMUTH 

7.5 

22.5 

37.5 

52.5 

POLAR 

8 

.00319 

.00316 

.00311 

.00304 

15 

.00369 

.00362 

.00349 

.00333 

22 

.00446 

.00431 

.00404 

.00373 

32 

.00639 

.00596 

.00528 

.00457 

45 

.01213 

.01053 

.00835 

.00645 

60 

.03264 

.02513 

.01667 

.01091 

72 

.08454 

.05835 

.03316 

.01896 

84 

.26152 

.16536 

.08341 

.04310 

AZIMUTH 

67.5 

82.5 

97.5 

112.5 

POLAR 

8 

.00296 

.00289 

.00281 

.00274 

15 

.00316 

.00299 

.00285 

.00273 

22 

.00342 

.00315 

.00293 

.00276 

32 

.00396 

.00350 

.00315 

.00291 

45 

.00511 

.00424 

.00368 

.00332 

60 

.00768 

.00593 

.00495 

.00438 

72 

.01219 

.00896 

.00731 

.00639 

84 

.02596 

.01842 

.01477 

.01281 

AZIMUTH 

127.5 

142.5 

157.5 

172.5 

POLAR 

8 

.00269 

.00265 

.00262 

.00260 

15 

.00263 

.00257 

.00252 

.00250 

22 

.00264 

.00255 

.00249 

.00246 

32 

.00274 

.00262 

.00255 

.00252 

45 

.00309 

.00294 

.00285 

.00281 

60 

.00403 

.00382 

.00369 

.00364 

72 

.00585 

.00552 

.00534 

.00525 

84 

.01168 

.01101 

.01062 

.01045 
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APPENDIX  F 
Discussion  of  Gaussian  Quadrature 

The  complexity  of  the  required  integrations  in  this  thesis  pre- 
cluded all  but  the  simplest  of  direct  integrations.   It  was  necessary 
to  fit  the  data  with  an  empirical  expression  and  then  use  formal 
analytical  methods.  This  technique  is  commonly  called  numerical 
integration.   A  rather  efficient  method  of  numerical  integration  called 
Gaussian  quadrature  is  used  in  this  study  (15,  17).  This  general  pro- 
cedure notes  values  of  the  ordinate  y  at  n  predetermined  values  of  x. 
The  sum  of  the  products  of  the  ordinate  y  multiplied  by  a  predetermined 
constant  is  multiplied  by  the  difference  in  the  integration  limits  of  x 
to  give  the  desired  integral.   Utilizing  n  predetermined  values  of  x,  a 
polynomial  of  (2n-l)st  degree  would  be  exactly  fitted. 

Consider  the  derivation  for  the  special  case  of  a  fifth-degree 
function  per  reference  17.   A  fifth-degree  function  is  of  the  form, 

y  =  a  +  ajX  +  agX2  +  83X  +  a.x4  +  asx  .  (80) 

The  desired  integration  of  y  from  d'  to  c'  must  be  transformed  to  limits 
of  -1  to  +1.  This  can  be  achieved  by  the  relationship, 

x  =  ((c'+d')/2]  +  [(c'-d1 )/2]u.  (81) 

The  integral  therefore  becomes 

ydx  =  {(c'-d' )/2]f  ydu  =  N' (c1 -d' )  (82) 

Jd'  -1 


ydx  =  {(c'-d' )/2] 
'd 

where  N'  is  the  average  value  of  y  over  the  interval  d1  to  c*   From  eq. 

(80)  and  eq.(81), 
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y  =   a'   +  a'u  +   a1  ua  +   a'u3  +   a'u4  +   a'u*.  (83) 

012  3  4  & 

Substituting  eq.(83)    into  eq.(82)    yields 

N'    =   a'    +    (ai/3)  +   (a'/5).  C8A) 

O  *  4 

With  the  methodology  outlined   at    the   beginning  of   this   appendix,    the 
N1    of   eq.(84)   may  be  obtained   from  the   three  constants  Clf  Cg    and  C3   and 
the   three  ordinates  y± ,    y3 ,    and  y„  by 

N'    =  Ciyi  +  C2y2  +  C3y3.  (85) 

Substituting   the  power   series  of   eq.(83)    into  eq.(85)    results   in 

N1    =   a' (Cj+Cg+Cg)  +   a^Cj^uj+CgUj+CgUg) 

+  aa(C1u|+Csul+C3u|)    +  a3(ClUJ+C8u|+C3u|)  (86) 

+  a^tCiuf+Cjjug+CgU^)  +   aJ(ClUi+CEug+C3u|  ). 

Comparing   this   result  with  that  of  eq.(84),    the  following  equalities 
must   be   true. 

c1+cs+c3  =  1 

Clul  +  C2"B  +  C3U3  =  ° 
Clul  +  CBUI  +  C3ul   -    1/3  (87) 

ciui  +  caut  +  C3U*  =  1/5 

Clul   +   C8UI   +   C3U3   =    0 
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These  equations  are  simultaneously  solved  to  give  the  results, 


4/9 


ux  =  -(3/5)  =  -0.7746 
"2  =  0 

1. 

u„  =  (3/5)'2  =  0.7746 


(88) 


These  results  are  combined  by  eq.(85)  and  the  value  of  the  integral  given 

by  N'(c'-d').  Table  12  gives  u.  (or  x.)  and  C   (or  a.)  values  for  values  of 

n  up  through  n  =:  6  (15).   Since  x,  -  x  ,  ,  and  a,  =  a  ,  t,   only  half  of 
b  k    n-k+1      k    n-k+1     ' 

the  values  are  tabulated. 


Table  12.   Parameters  utilized  in  Gauss' 

mechanical  quadrature  formula  (15). 


0.57735026918962C 

0.774596669241483 
0.000000000000000 

0.339981043584856 
0.861136311594053 

0.538469310105683 
0.906179845938664 
0.000000000000000 

0.238619186083197 
0.661209386466265 
0.932469514203152 


1.000000000000000 

0.555555555555556 
0.888888888888889 

0.652145154862546 
0.347854845137454 

0.478628670499366 
0.236926885O56189 
0.568888888888889 

0.467913934572691 
0.360761573048139 
0.171324492379170 
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APPENDIX  G 

Description  and  Explanation  of  the  IBM- 1620 
Computer  Program  Used  for  Calculating  the 
Differential  Incident  Dose  Rate  at  Point  (x,y) 
on  the  Ceiling  of  a  Blockhouse 


This  computer  code  was  written  to  calculate  the  differential  incident 
dose  rate  defined  by  expression  (35), 


(0. 1917+0. 0095cos6  )f  1+a'S  (E  )d  exp(bS  (E  )d/cosB  )/cos9  1 
o  l     a  o     r   a  o       o      o> 


X?2n  cos8  exp(-a/cos9  )]  Acos8  AO 
1       o   r        o  J       o  o 


(35) 


The  program  was  written  in  FORTRAN  II  language.  The  source  program  is 
listed  and  the  logic  diagram  is  shown  in  this  appendix. 

Results  are  obtained  for  the  KSU  blockhouse  for  56  equal  solid  angles 
at  the  (x,y)  positions:   (0,5),  (0,10),  (0,15),  (3,5),  (3,10),  (3,15), 
(6,5),  (6,10)  and  (6,15)  with  the  dimensions  of  feet.  These  results  are 
presented  in  this  appendix  as  Table  14.   Selected  portions  of  these  results 
are  presented  in  the  format  of  Figure  6  in  the  main  body  of  this  work. 
Table  13  defines  the  various  symbols  utilized  in  this  computer  code. 


Table  13.   Input  data  and  variables  required  for 

the  IBM- 1620  differential  incident  dose 
rate  computer  program. 


Synibo  1 


Explanation 


ACHD 
BCHD 
R 

H 

V 
X 

NFTSX 


Build-up   Parameter,    a' 

Build-up  Parameter,   b 

One-half   Aperture  Width   (feet) 

Distance  Between  Ceiling  and   Horizontal  Centerline  of 

Aperture   (feet) 

One-half  Aperture  Height  (feet) 

x  Co-ordinate 

Maximum  x  Co-ordinate  Calculated  (feet) 


Table  13  cont . 
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Symbol 


Explanation 


Y 

NPTSY 

INTMX 

INTMY 

IX 

IY 

MAXOME 

THEDEG 

PHIDEG 

THETA 

PHI 

THETAG 

PHIG 

THETAL 

PHIL 

PHI1 

PHI2 

PHIN 

PHIX 

PHIO 

THETA1 
THETA2 
THETAN 

COSTHN 
THETAX 

COSTHX 
COSTHO 

PTIiLGT 

BILDUP 
DOANDI 
TODORA 


y  Co-ordinate 

Maximum  y  Co-ordinate  Calculated  (feet) 

Initial  Value  of  x  Co-ordinate  Calculated  (feet) 

Initial  Value  of  y  Co-ordinate  Calculated  (feet) 

Interval  Between  Calculated  x  Values  (feet) 

Interval  Between  Calculated  y  Values  (feet) 

One-half  the  Number  of  Solid  Angles  Calculated  About 

a  Point  on  the  Ceiling 

Average  Polar  Angle  for  Each  Solid  Angle  (degrees) 

Average  Azimuthal  Angle  for  Each  Solid  Angle  (degrees) 

Average  Polar  Angle  for  Each  Solid  Angle  (radians) 

Average  Azimuthal  Angle  for  Each  Solid  Angle  (radians) 

Polar  Angular  Limits  of  Each  Solid  Angle  (degrees) 

Azimuthal  Angular  Limits  of  Each  Solid  Angle  (degrees) 

Polar  Angular  Limits  of  Each  Solid  Angle  (radians) 

Azimuthal  Angular  Limits  of  Each  Solid  Angle  (radians) 

Azimuthal  Limit  of  Aperture  in  the  Positive  x  Plane  (radians) 

Azimuthal  Limit  of  Aperture  in  the  Negative  x  Plane  (radians) 

Minimum  Value  of  Azimuthal  Angle  Subtended  by  the  Aperture 

for  Each  Solid  Angle  (radians) 

Maximum  Value  of  Azimuthal  Angle  Subtended  by  the  Aperture 

for  Each  Solid  Angle  (radians) 

Arithmetic  Average  of  Maximum  and  Minimum  Values  of 

Azimuthal  Angles  Subtended  by  the  Aperture  for  Each  Solid 

Angle  (radians) 

Polar  Angle  Subtended  by  Bottom  of  Aperture  at  the 

Determined  PUIO  (radians) 

Polar  Angle  Subtended  by  Top  of  Aperture  at  the  Determined 

PHIO  (radians) 

Minimum  Value  of  Polar  Angle  Subtended  by  the  Aperture  for 

Each  Solid  Angle  (radians) 

Cosine  of  THETAN 

Maximum  Value  of  Polar  Angle  Subtended  by  the  Aperture  for 

Each  Solid  Angle  (radians) 

Cosine  of  THETAX 

Cosine  of  Arithmetic  Average  of  Maximum  and  Minimum  Polar 

Angles  Subtended  by  the  Aperture  for  Each  Solid  Angle 

Mean  Free  Paths  of  Incident  Gamma  Ray  Photon  from  Given 

Point  on  the  Contaminated  Plane  to  (x,y)  on  the  Ceiling 

Dose  Build-up  Factor  for  a  Point  Isotropic  Source,  B 

Differential  Incident  Dose  Rate,  D  (x,y;8  0  )(D  ) 

Summation  of  DOANDI  (D  )  *      °  °   ° 
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LOGIC      DIAGRAM      FOR    THE     DIFFERENTIAL     INCIDENT 
DOSE     RATE    AT     ANY      POINT      ON    A     BLOCKHOUSE    CEILING 


Set  I  =  INTMX| 
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C      DIFFERENTIAL  INCIDENT  DOSE  RATE  DIST. —3/11/63  BY  J. A.  BARAN 

DIMENSION  THEDEGI56),  PHIDEGI56),  XI51).  Y(IOO).  PHI (56) »  THETAI56 
l)f  THETAGI56).  PHIGI56).  THETAL ( 1 12) .PHIL ( 112 ) 

17  FORMAT  (6F10.1) 

18  FORMAT  (2013) 

19  FORMAT  (2F7.2I 
700  FCRMATI4E18.10) 

710  FORMAT!/. 48H  SUM  OF  DIFFERENTIAL  DOSE  RATES  <*         F10. 

18,//) 

714  FORMAT  (60H  X        Y        THETA       PHI     DIFF.DO 
1RAIN    .//) 

715  FORMAT  (10H  F6.2.  F9.2,  F10'.2,  F10.2,  F13.9) 
30  READ  700,          ACHD,BCHD,R ,H, V 

C      INPUT  ABOVE  IS   2  CARDS 

READ  18,  NPTSX,  NPTSY,  INTMX,  INTMY,IX,IY,       MAXCME 

C      INPUT  ABOVE  IS   1  CARD 

DO  21  I=1,MAX0ME 

J  ■  MAXOME  +  I 

READ  19,  THEDEG(I),  PHIDEG(I) 

THEDEG(J)  =  THEDEGfl) 
21  PHIDEG(J)  =  180.  +  PHIDEG(I) 
C      INPUT  ABOVE  IS  28  CARDS 

MAX0T2  =  MAXOME  *  2 

READ  17,  THETAG 
C      INPUT  ABOVE  IS  10  CARDS 

READ  17.  PHIG 
C      INPUT  ABOVE  IS  10  CARDS 

DC  14  I=INTMX.  NPTSX.  IX 

14  X(I)  =  1-1 

DO  15  I=INTMY,  NPTSY.  IY 

15  Yd)  =  I 

C      THESE  LOOPS  CALCULATE  THE  X  AND  Y  CO-ORDINATES  OF  INTEREST 
C      WHERE  THE  DIFFERENTIAL  INCIDENT  DOSE  RATES  ARE  CALCULATED 

DO  76JTHETA=1,MAXCT2 

THETAL(JTHETA)  =  THETAG! JTHETA)  /  57.295779 

PHIL(JTHETA)  =  PHIG(JTHETA)  /  57.295779 

J  =  MAX0T2  +  JTHETA 

THETALIJI  =  THETAL(JTHETA) 
76  PHILIJ)  =  3.1415927  +  PHIL (JTHETA ) 
C      THIS  LOOP  CONVERTS  THE  SOLID  ANGLE  LIMITS  TO  RADIANS  AND  UTILIZES 
C      SYMMETRY  TO  EXPAND  THE  SOLID  ANGLES  TO  COVER  THE  HEMISPHERE 

DO  760  I=INTMX.  NPTSX,  IX 
DO  720  J=INTMY,  NPTSY,  IY 
C      THESE  LOOPS  REPEAT  THE  ENTIRE  CALCULATION  FOR  DIFFERENT  (X.Y) 

IF  (SENSE  SWITCH  1)  86,  87 

86  PAUSE 

87  PHI1=ATANF((X( I)-R)/Y(J) )  +  3.1415927 
PHI2=ATANF((X(I)+R)/Y(J) )  +  3.1415927 
TODCRA  =  0. 

PUNCH  714 

DO  65  IPHI  =  1,  MAX0T2 
C      THIS  LOOP  REPEATS  THE  CALCULATIONS  FOR  EACH  SOLID  ANGLE 
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IF(PHIL(2*IPHI 1-PHI1I  101 » 101.104 

104  IF(PHI2-PHIL(  2*IPHI  -1))  101.  101>  111 

C      THESE  TWO  CROERS  DETERMINE  IF  THE  AZIMUTHAL  LIMITS  CF  THE  SOLID 
C      ANGLE  SUBTEND  ANY  PORTION  OF  THE  APERTURE 

111  IFIPHILI  2*IPHI  -1)  -  PHI1)  112.  112.  113 

101  DOANDI=0. 
GO  TO  65 

112  PHIN=PHI1 
GO  TO  114 

113  PHIN=PHIL<  2*IPHI  -1) 

114  IF(PHI2-PHIL(2*IPHI ) 1115.116.116 

115  PHIX=PHI2 
GO  TO  118 

116  PH1X=PH1L(2*IPHI ) 

C      THE  PORTION  OF  THE  AZIMUTHAL  INTERVAL  CF  THE  SOLID  ANGLE 
C      SUBTENDING  THE  APERTURE  IS  DETERMINED  BY  THESE  ORDERS 
118  PHIO  =  (PHIX+PHIN1/2. 

THETA1=ATANF(Y< J>/< ( H+V ) *ABSF ( COSF ( PH 10-3. 1415927 ) ) ) ) 
THETA2  =  ATANF(Y( J ) / < ( H-V )*ABSF ( COSF ( PHI  0-3. 141592  7 ) ) ) ) 
IF(THETAL(2*IPHI 1-THETA1)  101,101.102 

102  IF(THETA2-THETAL(2*IPHI-1) )  101.101.105 

C      THESE  TWO  ORDERS  DETERMINE  IF  THE  POLAR  LIMITS  OF  THE  SOLID 
C      ANGLE  SUBTEND  ANY  PORTION  OF  THE  APERTURE 

105  IF(THETAL(2*IPHI-1)-THETA1)  106.106.107 

106  THETAN  =  THETA1 
CCSTHN=CCSF(THETA1> 
GO  TO  108 

107  THETAN  =  THETAL (2*IPHI-1 ) 
CCSTHN  =  CCSF( THETAL (2*1  PHI- II ) 

108  IF(THETA2-THETAL(2*IPHI) 1109.110.110 

109  THETAX  =  THETA2 
COSTHX=COSF ( THETA2 1 
GO  TO  117 

110  THETAX  =  THETAL(2*IPHI 1 
CCSTHX=CCSF( THETAL I  2*1  PHI)  1 

C      THE  PORTION  OF  THE  POLAR  INTERVAL  OF  THE  SOLID  ANGLE 
C      SUBTENDING  THE  APERTURE  IS  DETERMINED  BY  THESE  ORDERS 

117  COSTHO  =  COSF( (THETAN+THETAX1/2.) 
PTHLGT=0. 01825/ COSTHO 
BILDUP=1.+ACHD*PTHLGT*EXPFIBCHD*PTHLGT> 

DOANDI =< 0.1917  +  0. 009 5*C0STH0)*B I LDUP*( PHI X-PHIN ) * ( CCSTHN- 
1C0STHX)  /(6. 2831853  *  COSTHO  *  EXPF (PTHLGT ) ) 
TODCRA  =  DOANDI  +  TODORA 
65  PUNCH  715. X( I).Y(J)  .  THEDEGI I  PHI ) .  PHIDEG ( IPHI ) .  DOANDI 
PUNCH  710,  TODCRA 
720  CONTINUE 
760  CONTINUE 
GO  TO  30 
END 


INPUT    DATA 
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.562-2 
1.08+0 

62.518-3 

1.85+0 

7    15 

1       5       3 

1       5    28 

7.70 

90.00 

18.60 

90.00 

28.30 

30.00 

28.30 

90.00 

28.30 

150.00 

39.60 

30.00 

39.60 

90.00 

39.60 

150.00 

49.80 

22.50 

49.80 

67.50 

49.80 

112.50 

49.80 

157.50 

59.90 

22.50 

59.90 

67.50 

59.90 

112.50 

59.90 

157.50 

71.10 

15.00 

71.10 

45.00 

71.10 

75.00 

71.10 

105.00 

71.10 

135.00 

71.10 

165.00 

83.80 

15.00 

83.80 

45.00 

83.80 

75.00 

83.80 

105.00 

83.80 

135.00 

83.80 

165.00 

.0 

15.4 

15.4 

21.8 

21.8 

34.8 

21 

.8 

34.6 

21.8 

34.8 

34.8 

44.4 

34 

.8 

44.4 

34.8 

44.4 

44.4 

55.2 

44 

.4 

55.2 

44.4 

55.2 

44.4 

55.2 

55 

.2 

64.6 

55.2 

64.6 

55.2 

64.6 

55 

.2 

64.6 

64.6 

77.6 

64.6 

77.6 

64 

.6 

77.6 

64.6 

77.6 

64.6 

77.6 

64 

.6 

77.6 

77.6 

90.0 

77.6 

90.0 

77 

.6 

90.0 

77.6 

90.0 

77.6 

90.0 

77 

.6 

90.0 

.0 

180.0 

0.0 

180.0 

0.0 

60.0 

60 

.0 

120.0 

120.0 

180.0 

0.0 

60.0 

60 

.0 

120.0 

120.0 

180.0 

0.0 

45.0 

45 

.0 

90.0 

90.0 

135.0 

135.0 

180.0 

.0 

45.0 

45.0 

90.0 

90.0 

135.0 

135 

.0 

180.0 

0.0 

30.0 

30.0 

60.0 

60 

.0 

90.0 

90.0 

120.0 

120.0 

150.0 

150 

.0 

180.0 

0.0 

30.0 

30.0 

60.0 

60 

.0 

90.0 

90.0 

120.0 

120.0 

150.0 

150 

.0 

180.0 

101 


2.88+0 


TABLE  14. 
DIFFERENTIAL  INCIDENT  DCSE  RATE  RESULTS 
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THETA 


.00 

5.00 

7.70 

.00 

5.00 

18.60 

.00 

5.00 

28.30 

.00 

5.00 

28.30 

.00 

5.00 

28.30 

.00 

5.00 

39.60 

.00 

5.00 

39.60 

.00 

5.00 
5.00 

39.60 
49.80 

.00 

:88 

5:88 

*S:I8 

.00 

5.00 

49.80 

.00 

5.00 

59.90 

.00 

5.00 

59.90 

.00 

5.00 

59.90 

.00 

5.00 

59.90 

.00 

5.00 

71.10 

.00 

5.00 

71.10 

.00 

5.00 

71.10 

.00 

5.00 

71.10 

.00 
.00 

5.00 

71.10 

5.00 

71.10 

.00 

5.00 

83.80 

.00 

5.00 

83.80 

:8o° 

1:88 

83.80 
83.80 

.00 

5.00 

83.80 

:88 

1:88 

83.80 
7.70 

•1 

5.00 

1:88 

18.60 
28.30 
28.30 

.00 

5.00 

39.60 

.00 

5.00 

39.60 

.00 

5.00 

39.60 

.00 

5.00 

§•89 

5.00 

49.80 

.00 
.00 

49.80 

49.80 

.00 

5.00 

49.80 

.00 

5.00 

59.90 

.00 

5.00 

59.90 

.00 

5.00 

59.90 

.00 

5.00 

59.90 

.00 

5.00 

71.10 

:88 

§.•88 

?  :i8 

.00 

5.00 

71.10 

.00 

5.00 

71.10 

:88 

1:88 

71.10 
83.80 

.00 

5.00 

83.80 

.00 

5.00 

83.80 

.00 

1:88 

83.80 

.00 

83.80 

.00 

5.00 

83.80 

PHI 

90.00 
90.00 
30.00 
90.00 
150.00 
30.00 
90.00 

lim 
ithiB 

157.50 

22.50 

67.50 

112.50 

157.50 

15.00 

45.00 

75.00 

105.00 

135.00 

165.00 

15.00 

45.00 

75.00 

105.00 

135.00 

^3:88 

270.00 
270.00 
330.00 
210.00 
270.00 
330.00 
202.50 
247.50 
292.50 
337.50 
202.50 
247.50 
292.50 
337.50 
195.00 

233:88 

285.00 
315.00 
345.00 
195.00 
225.00 
255.00 
285.00 
315.00 
345.00 


DIFF.DCRAIN 

0.00000000 
0.00000000 
0.00000000 
0.00000000 
0.00000000 
0.00000000 
0.00000000 
0.00000000 
0.00000000 

8:88888888 

.00082519 
0.00000000 
0.00000000 
0.00000000 

.00311931 
0.00000000 
0.00000000 
0.00000000 
0.00000000 
0.00000000 

.00272201 
0.00000000 
0.00000000 
0.00000000 
0.00000000 
0.00000000 

o.oogooooo 

0.00000000 
0.00000000 
0.00000000 
0.00000000 
0.00000000 
0.00000000 
0.00000000 

.00082519 
0.00000000 
0.00000000 
0.00000000 

.00311931 
0.00000000 
0.00000000 
0.00000000 

.00272201 

8:88888888 

0.00000000 
0.00000000 
0.00000000 
0.00000000 
0.00000000 
0.00000000 
0.00000000 
0.00000000 
0.00000000 


SUM  CF  DIFFERENTIAL  DCSE  RATES  ■   .01333303 


TABLE  14  CGNT. 
DIFFERENTIAL  INCIDENT  DCSE  RATE  RESULTS 
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X 

Y 

THETA 

PHI 

DIFF.DCRAIN 

.00 

10.00 

7.70 

90.00 

0.00000000 

.00 

10.00 

18.60 

90.00 

0.00000000 

.00 

10.00 

28.30 

30.00 

0.00000000 

.00 

10.00 

28.30 

90.00 

0.00000000 

.00 

10.00 

28.30 

150.00 

0.00000000 

.00 

10.00 

39.60 

30.00 

0.00000000 

.00 

10.00 

39.60 

90.00 

0.00000000 

.00 

10.00 

39.60 

150.00 

0.00000000 

.00 

10.00 

49.80 

22.50 

0.00000000 

.00 

10.00 

49.80 

67.50 

0.00000000 

.00 

10.00 

49.80 

112.50 

0.00000000 

.00 

10.00 

49.80 

157.50 

0.00000000 

.00 

10.00 

59.90 

22.50 

0.00000000 

.00 

10.00 

59.90 

67.50 

0.00000000 

.00 

10.00 

59.90 

112.50 

0.00000000 

.00 

10.00 

59.90 

157.50 

0.00000000 

.00 

10.00 

71.10 

15.00 

0.00000000 

.00 

10.00 

71.10 

45.00 

0.00000000 

.00 

10.00 

71.10 

75.00 

0.00000000 

.00 

10.00 

71.10 

105.00 

0.00000000 

.00 

10.00 

71.10 

135.00 

0.00000000 

.00 

10.00 

71.10 

165.00 

.00292936 

.00 

10.00 

83.80 

15.00 

0.00000000 

.00 

10.00 

83.80 

45.00 

0.00000000 

.00 

10.00 

83.80 

75.00 

0.00000000 

.00 

10.00 

83.80 

105.00 

0.00000000 

.00 

10.00 

83.80 

135.00 

0.00000000 

.00 

10,-00 

83.80 

165.00 

.00108949 

.00 

10,00 

7.70 

270.00 

0.00000000 

.00 

10.00 

18.60 

270.00 

0.00000000 

.00 

10.00 

28.30 

210.00 

0.00000000 

.00 

10.00 

28.30 

270.00 

0.00000000 

.00 

10.00 

20.30 

330.00 

0.00000000 

.00 

10.00 

39.60 

210.00 

0.00000000 

.00 

10.00 

39.60 

270.00 

0.00000000 

.00 

10.00 

39.60 

330.00 

0.00000000 

.00 

10.00 

49.8  0 

202.50 

0.00000000 

.00 

10.00 

49.80 

247.50 

0.00000000 

.00 

10.00 

49.80 

292.50 

0.00000000 

.00 

10.00 

49.80 

337.50 

0.00000000 

.00 

10.00 

59.90 

202.50 

0.00000000 

.00 

10.00 

59.90 

247.50 

0.00000000 

.00 

10.00 

59.90 

292.50 

0.00000000 

.00 

10.00 

59.90 

337.50 

0.00000000 

.00 

10.00 

71.10 

195.00 

.00292936 

.00 

10.00 

71.10 

225.00 

0.00000000 

.00 

10.00 

71.10 

255.00 

0.00000000 

.00 

10.00 

71.10 

285.00 

0.00000000 

.00 

10.00 

71.10 

315.00 

0.00000000 

.00 

10.00 

71.10 

345.00 

0.00000000 

.00 

10.00 

83.80 

195.00 

.00108949 

•:il 

m 

83.80 

11:18 

225.00 

111:88 

0.00000000 

8:88888888 

.00 

10.00 

83.80 

315.00 

0.00000000 

.00 

10.00 

83.80 

345.00 

0.00000000 

SUM 

CF  DIFFERENTIAL  DC 

!SE  RATES 

=   .00803773 

TABLE  14  CCNT. 
DIFFERENTIAL  INCIDENT  DGSE  RATE  RESULTS 
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X 

Y 

THETA 

PHI 

DIFF.DCRAIN 

.00 

15.00 

7.70 

90.00 

0.00000000 

.00 

15.00 

18.60 

90.00 

0.00000000 

.00 

15.00 

28.30 

30.00 

0.00000000 

.00 

15.00 

28.30 

90.00 

0.00000000 

.00 

15.00 

28.30 

150.00 

0.00000000 

.00 

15.00 

39.60 

30.00 

0.00000000 

.00 

15.00 

39.60 

90.00 

0.00000000 

.00 

15.00 

39.60 

150.00 

0.00000000 

.00 

15.00 

49.80 

22.50 

0.00000000 

.00 

15.00 

49.80 

67.50 

0.00000000 

.00 

15.00 

49.80 

112.50 

0.00000000 

.00 

15.00 

49.80 

157.50 

0.00000000 

.00 

15.00 

59.90 

22.50 

0.00000000 

.00 

15.00 

59.90 

67.50 

0.00000000 

.00 

15.00 

59.90 

112.50 

0.00000000 

.00 

15.00 

59.90 

157.50 

0.00000000 

.00 

15.00 

71.10 

15.00 

0.00000000 

.00 

15.00 

71.10 

45.00 

0.00000000 

.00 

15.00 

71.10 

75.00 

0.00000000 

.00 

15.00 

71.10 

105.00 

0.00000000 

.00 

15.00 

71.10 

135.00 

0.00000000 

.00 

15.00 

71.10 

165.00 

.00063981 

.00 

15.00 

83.80 

15.00 

0.00000000 

.00 

15.00 

83.80 

45.00 

0.00000000 

.00 

15.00 

83.80 

75.00 

0.00000000 

.00 

15.00 

83.80 

105.00 

0.00000000 

.00 

15.00 

83.80 

135.00 

0.00000000 

.00 

15.00 

83.80 

165.00 

.00213256 

.00 

15.00 

7.70 

270.00 

0.00000000 

.00 

15.00 

18.60 

270.00 

0.00000000 

.00 

15.00 

28.30 

210.00 

0.00000000 

.00 

15.00 

28.30 

270.00 

0.00000000 

.00 

15.00 

28.30 

330.00 

0.00000000 

.00 

15.00 

39.60 

210.00 

0.00000000 

.00 

15.00 

39.60 

270.00 

0.00000000 

.00 

15.00 

39.60 

330.00 

0.00000000 

.00 

15.00 

49.80 

202.50 

0.00000000 

.00 

15.00 

49.80 

247.50 

0.00000000 

.00 

15.00 

49.80 

292.50 

0.00000000 

.00 

15.00 

49.80 
59.90 

337.50 

0.00000000 

.00 

15.00 

202.50 

0.00000000 

.00 

15.00 

59.90 

247.50 

0.00000000 

.00 

15.00 

59.90 

292.50 

0.00000000 

.00 

15.00 

59.90 

337.50 

0.00000000 

.00 

15.00 

71.10 

195.00 

.00063981 

.00 

15.00 

71.10 

225.00 

0.00000000 

.00 

15.00 

71.10 

255.00 

0.00000000 

.00 

15.00 

71.10 

285.00 

0.00000000 

.00 

15.00 

71.10 

315.00 

0.00000000 

.00 

15.00 

71.10 

345.00 

0.00000000 

.00 

15.00 

83.80 

195.00 

.00213256 

.00 

15.00 

83.80 

225.00 

0.00000000 

.00 

15.00 

83.80 

255.00 

0.00000000 

.00 

15.00 

83.80 

285.00 

0.00000000 

.00 

15.00 

83.80 

315.00 

0.00000000 

.00 

15.00 

83.80 

345.00 

0.00000000 

SUM 

CF  DIFFERENTIAL  DC 

SE  RATES 

=   .00554476 
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TABLE  1*  CCNT. 
DIFFERENTIAL  INCIDENT  DOSE  RATE  RESULTS 


X 

Y 

THETA 

PHI 

DIFF.DORAIN 

3.00 

5.00 

7.70 

90.00 

0.00000000 

3.00 

5.00 

18.60 

90.00 

0.00000000 

3.00 

5.00 

28.30 

30.00 

0.00000000 

3.00 

5.00 

28.30 

90.00 

0.00000000 

3.00 

5.00 

28.30 

150.00 

0.00000000 

3.00 

5.00 

39.60 

30.00 

0.00000000 

3.00 

5.00 

39.60 

90.00 

0.00000000 

3.00 

5.00 

39.60 

150.00 

0.00000000 

3.00 

5.00 

49.60 

22.50 

0.00000000 

3.00 

5.00 

49.80 

67.50 

0.00000000 

3.00 

5.00 

49.80 

112.50 

0.00000000 

3.00 

5.00 

49.80 

157.50 

0.00000000 

3.00 

5.00 

59.90 

22.50 

0.00000000 

3.00 

5.00 

59.90 

67.50 

0.00000000 

3.00 

5.00 

59.90 

112.50 

0.00000000 

3.00 

5.00 

59.90 

157.50 

0.00000000 

3.00 

5.00 

71.10 

15.00 

0.00000000 

3.00 

5.00 

71.10 

45.00 

0.00000000 

3.00 

5.00 

71.10 

75.00 

0.00000000 

3.00 

5.00 

71.10 

105.00 

0.00000000 

3.00 

5.00 

71.10 

135.00 

0.00000000 

5:88 

1:88 

tt:U 

43:88 

8:88888888 

3.00 

5.00 

83.80 

45.00 

0.00000000 

3.00 

5.00 

83.80 

75.00 
105.00 

0.00000000 

3.00 

5.00 

83.80 

0.00000000 

3.00 

5.00 

83.80 

135.00 

0.00000000 

3.00 

5.00 

83.80 

165.00 

0.00000000 

3.00 

5.00 

7.70 

270.00 

0.00000000 

3.00 

5.00 

18.60 

270.00 

0.00000000 

3.00 

5.00 

28.30 

210.00 

0.00000000 

3.00 

5.00 

28.30 

270.00 

0.00000000 

1:88 

i:88 

§1:18 

118:88 

8:88888888 

3.00 

5.00 

39.60 

270.00 

0.00000000 

3.00 

5.00 

39.60 

330.00 

0.00000000 

3.00 

5.00 

49.80 

202.50 

.00001220 

3.00 

5.00 

49.80 

247.50 

0.00000000 

3.00 

5.00 

49.80 

292.50 

0.00000000 

3.00 

5.00 

49.80 

337.50 

0.00000000 

3.00 

5.00 

59.90 

202.50 

.00478928 

5:88 

5-:88 

ii:18 

2*2:38 

8:88888888 

3.00 

5.00 

59.90 

337.50 

0.00000000 

1:88 

5.00 
5.00 

71.10 
71.10 

£11:88 

.00273512 
.00328693 

3.00 

5.00 

71.10 

255.00 

0.00000000 

3.00 

5.00 

71.10 

285.00 

0.00000000 

3.00 

5.00 

71.10 

315.00 

0.00000000 

3.00 

5.00 

71.10 

345.00 

0.00000000 

3.00 

5.00 

83.80 

195.00 

0.00000000 

3.00 

5.00 

83.80 

225.00 

0.00000000 

3.00 

5.00 

83.80 

255.00 

0.00000000 

3.00 

5.00 

83.80 

285.00 

0.00000000 

3.00 

5.00 

83.80 

315.00 

0.00000000 

3.00 

5.00 

83.80 

345.00 

0.00000000 

SO 

1  OF  DIFFEI 

(ENT1AL  DOSE  RATES 

=   .01082353 

TABLE  14  CCNT. 
DIFFERENTIAL  INCIDENT  DOSE  RATE  RESULTS 
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X 

Y 

THETA 

PHI 

DIFF.DCRAIN 

3.00 

10.00 

7.70 

90.00 

0.00000000 

3.00 

10.00 

18.60 

90.00 

0.00000000 

3.00 

10.00 

28.30 

30.00 

0.00000000 

3.00 

10.00 

28.30 

90.00 

0.00000000 

3.00 

10.00 

28.30 

150.00 

0.00000000 

3.00 

10.00 

39.60 

30.00 

0.00000000 

3.00 

10.00 

39.60 

90.00 

0.00000000 

3.00 

10.00 

39.60 

150.00 

0.00000000 

3.00 

10.00 

49.80 

22.50 

0.00000000 

3.00 

10.00 

49.80 

67.50 

0.00000000 

3.00 

10.00 

49.80 

112.50 

0.00000000 

3.00 

10.00 

49.80 

157.50 

0.00000000 

3.00 

10.00 

59.90 

22.50 

0.00000000 

3.00 

10.00 

59.90 

67.50 

0.00000000 

3.00 

10.00 

59.90 

112.50 

0.00000000 

3.00 

10.00 

59.90 

157.50 

0.00000000 

3.00 

10.00 

71.10 

15.00 

0.00000000 

3.00 

10.00 

71.10 

45.00 

0.00000000 

3.00 

10.00 

71.10 

75.00 

0.00000000 

3.00 

10.00 

71.10 

105.00 

0.00000000 

3.00 

10.00 

71.10 

135.00 

0.00000000 

3.00 

10.00 

71.10 

165.00 

0.00000000 

3.00 

10.00 

83.80 

15.00 

0.00000000 

3.00 

10.00 

83.80 

45.00 

0.00000000 

3.00 

10.00 

83.80 

75.00 

0.00000000 

3.00 

10.00 

83.80 

105.00 

0.00000000 

3.00 

10.00 

83.80 

135.00 

0.00000000 

3.00 

10.00 

83.80 

165.00 

0.00000000 

3.00 

10.00 

7.70 

270.00 

0.00000000 

3.00 

10.00 

18.60 

270.00 

0.00000000 

3.00 

10.00 

28.30 

210.00 

0.00000000 

3.00 

10.00 

28.30 

270.00 

0.00000000 

1:88 

18:88 

15:18 

218:88 

8:88888888 

3.00 

10.00 

39.60 

270.00 

0.00000000 

3.00 

10.00 

39.60 

330.00 

0.00000000 

1:88 

18:88 

*8:§8 

W'M 

8:88888888 

3.00 

10.00 

49.80 

292.50 

0.00000000 

3.00 

10.00 

49.80 

337.50 

0.00000000 

3.00 

10.00 

59.90 

202.50 

0.00000000 

3.00 

10.00 

59.90 

247.50 

0.00000000 

3.00 

10.00 

59.90 

292.50 

0.00000000 

3.00 

10.00 

59.90 

337.50 

0.00000000 

3.00 

10.00 

71.10 

195.00 

.00509215 

3.00 

10.00 

71.10 

225.00 

0.00000000 

3.00 

10.00 

71.10 

255.00 

0.00000000 

3.00 

10.00 

71.10 

285.00 

0.00000000 

3.00 

10.00 

71.10 

315.00 

0.00000000 

3.00 

10.00 

71.10 

345.00 

0.00000000 

3.00 

10.00 

83.80 

195.00 

.00236443 

3.00 

10.00 

83.80 

225.00 

0.00000000 

3.00 

10.00 
10.00 

83.80 

255.00 

0.00000000 

3.00 

83.80 

285.00 

0.00000000 

3.00 

10.00 

83.80 

315.00 

0.00000000 

3.00 

10.00 

83.80 

345.00 

0.00000000 

SUM 

CF  DIFFERENTIAL  DC 

!SE  RATES 

=   .00745659 

TABLE  X4  CCNT. 
DIFFERENTIAL  INCIDENT  DCSE  RATE  RESULTS 
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X 

Y 

THETA 

PHI 

DIFF.DCRAIN 

3.00 

15.00 

7.70 

90.00 

0.00000000 

3.00 

15.00 

18.60 

90.00 

0.00000000 

3.00 

15.00 

28.30 

30.00 

0.00000000 

3.00 

15.00 

28.30 

90.00 

0.00000000 

3.00 

15.00 

28.30 

150.00 

0.00000000 

3.00 

15.00 

39.60 

30.00 

0.00000000 

3.00 

15.00 

39.60 

90.00 

0.00000000 

3.00 

15.00 

39.60 

150.00 

0.00000000 

3.00 

15.00 

49.80 

22.50 

0.00000000 

3.00 

15.00 

49.80 

67.50 

0.00000000 

3.00 

15.00 

49.80 

112.50 

0.00000000 

3.00 

15.00 

49.80 

157.50 

0.00000000 

3.00 

15.00 

59.90 

22.50 

0.00000000 

3.00 

15.00 

59.90 

67.50 

0.00000000 

3.00 

15.00 

59.90 

112.50 

0.00000000 

3.00 

15.00 

59.90 

157.50 

0.00000000 

3.00 

15.00 

71.10 

15.00 

0.00000000 

3.00 

15.00 

71.10 

45.00 

0.00000000 

3.00 

15.00 

71.10 

75.00 

0.00000000 

3.00 

15.00 

71.10 

105.00 

0.00000000 

3.00 

15.00 

71.10 

135.00 

0.00000000 

3.00 

15.00 

71.10 

165.00 

0.00000000 

3.00 

15.00 

83.80 

15.00 

0.00000000 

3.00 

15.00 

83.80 

45.00 

0.00000000 

3.00 

15.00 

83.80 

75.00 

0.00000000 

3.00 

15.00 

83.60 

105.00 

0.00000000 

3.00 

15.00 

83.80 

135.00 

0.00000000 

3.00 

15.00 

83.80 

165.00 

0.00000000 

3.00 

15.00 

7.70 

270.00 

0.00000000 

3.00 

15.00 

18.60 

270.00 

0.00000000 

3.00 

15.00 

28.30 

210.00 

0.00000000 

3.00 

15.00 

28.30 

270.00 

0.00000000 

3.00 

15.00 

28.30 

330.00 

0.00000000 

3.00 

15.00 

39.60 

210.00 

0.00000000 

3.00 

15.00 

39.60 

270.00 

0.00000000 

3.00 

15.00 

39.60 

330.00 

0.00000000 

3.00 

15.00 

49.80 

202.50 

0.00000000 

3.00 

15.00 

49.80 

247.50 

0.00000000 

3.00 

15.00 

49.80 

292.50 

0.00000000 

3.00 

15.00 

49.80 

337.50 

0.00000000 

3.00 

15.00 

59.90 

202.50 

0.00000000 

3.00 

15.00 

59.90 

247.50 

0.00000000 

3.00 

15.00 

59.90 

292.50 

0.00000000 

3.00 

15.00 

59.90 

337.50 

0.00000000 

3.00 

15.00 

71.10 

195.00 

.00111612 

3.00 

15.00 

71.10 

225.00 

0.00000000 

3.00 

15.00 

71.10 

255.00 

0.00000000 

3.00 

15.00 

71.10 

285.00 

0.00000000 

3.00 

15.00 

71.10 

315.00 

0.00000000 

3.00 

15.00 

71.10 

345.00 

0.00000000 

3.00 

15.00 

83.80 

195.00 

.00421480 

3.00 

15.00 

83.80 

225.00 

0.00000000 

3.00 

15.00 

83.80 

255.00 

0.00000000 

3.00 

15.00 

83.80 

285.00 

0.00000000 

3.00 

15.00 

83.80 

315.00 

0.00000000 

3.00 

15.00 

83.80 

345.00 

0.00000000 

SUM 

CF  DIFFERENTIAL  DC 

SE  RATES 

«   .00533093 
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TABLE    14    CCNT. 
DIFFERENTIAL    INCIDENT    DOSE    RATE    RESULTS 


THETA 


6.00 

5.00 

7.70 

6.00 

5.00 

18.60 

6.00 

5.00 

28.30 

6.00 

5.00 

28.30 

6.00 

5.00 

28.30 

6.00 

5.00 

39.60 

6.00 

5.00 

39.60 

&:88 

1:88 

33:18 

6.00 

5.00 

49.80 

6.00 

5.00 

49.80 

6.00 

5.00 

49.80 

6.00 

5.00 

59.90 

6.00 

5.00 

59.90 

6.00 

5.00 

59.90 

6.00 

5.00 

59.90 

6.00 

5.00 

71.10 

6.00 

5.00 

71.10 

6.00 

5.00 

71.10 

6.00 

5.00 

71.10 

6.00 

5.00 

71.10 

6.00 

5.00 

71.10 

6.00 

5.00 

83.80 

6.00 

5.00 

83.80 

6.00 

5.00 

83.80 

6.00 

5.00 

83.80 

6.00 

5.00 

83.80 

6.00 

5.00 

83.80 

6.00 

5.00 

7.70 

6.00 

5.00 

18.60 

6.00 

5.00 

28.30 

6.00 

5.00 

28.30 

6.00 

5.00 

28.30 

6.00 

5.00 

39.60 

6.00 

5.00 

39.60 

6.00 

5.00 

39.60 

6.00 

5.00 

49.80 

6.00 

5.00 

49.80 

6.00 

5.00 

49.80 

6.00 

5.00 

49.80 

6.00 

5.00 

59.90 

6.00 

5.00 

59.90 

6.00 

5.00 

59.90 

6.00 

5.00 

59.90 

6.00 

5.00 

71.10 

6.00 

5.00 

71.10 

6.00 

5.00 

71.10 

6.00 

5.00 

71.10 

6.00 

5.00 

71.10 

6.00 

5.00 

71.10 

6.00 

5.00 

83.80 

6.00 

5.00 

83.80 

6.00 

5.00 

83.80 

6.00 

5.00 

83.80 

6.00 

5.00 

83.80 

6.00 

5.00 

83.80 

SUM  CF  DIFFERENTIAL  DGSE  RATES 


PHI 

DIFF.DCRAIN 

90.00 

0.00000000 

90.00 

0.00000000 

30.00 

0.00000000 

90.00 

0.00000000 

150.00 

0.00000000 

30.00 

0.00000000 

90.00 

0.00000000 

l2S:88 

8:88888888 

67.50 

0.00000000 

112.50 

0.00000000 

157.50 

0.00000000 

22.50 

0.00000000 

67.50 

0.00000000 

112.50 

0.00000000 

157.50 

0.00000000 

15.00 

0.00000000 

45.00 

0.00000000 

75.00 

0.00000000 

105.00 

0.00000000 

135.00 

0.00000000 

165.00 

0.00000000 

15.00 

0.00000000 

45.00 

0.00000000 

75.00 

0.00000000 

105.00 

0.00000000 

135.00 

0.00000000 

165.00 

0.00000000 

270.00 

0.00000000 

270.00 

0.00000000 

210.00 

0.00000000 

270.00 

0.00000000 

330.00 

0.00000000 

210.00 

0.00000000 

270.00 

0.00000000 

330.00 

0.00000000 

202.50 

0.00000000 

247.50 

0.00000000 

292.50 

0.00000000 

337.50 

0.00000000 

202.50 

.00046940 

247.50 

.00023564 

292.50 

0.00000000 

337.50 

0.00000000 

195.00 

0.00000000 

225.00 

.00569038 

255.00 

0.00000000 

285.00 

0.00000000 

315.00 

0.00000000 

345.00 

0.00000000 

195.00 

0.00000000 

225.00 

0.00000000 

255.00 

0.00000000 

285.00 

0.00000000 

315.00 

0.00000000 

345.00 

0.00000000 

E  RATES 

=   .00639543 
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TABLE  14  CCNT. 
DIFFERENTIAL  INCIDENT  DC5E  RATE  RESULTS 


X 

Y 

THETA 

PHI 

DIFF.DCRAIN 

6.00 

10.00 

7.70 

90.00 

0.00000000 

6.00 

10.00 

18.60 

90.00 

0.00000000 

6.00 

10.00 

28.30 

30.00 

0.00000000 

6.00 

10.00 

28.30 

90.00 

0.00000000 

6.00 

10.00 

28.30 

150.00 

0.00000000 

6.00 

10.00 

39.60 

30.00 

0.00000000 

6.00 

10.00 

39.60 

90.00 

0.00000000 

6.00 

10.00 

39.60 

150.00 

0.00000000 

6.00 

10.00 

49.80 

22.50 

0.00000000 

6.00 

10.00 

49.80 

67.50 

0.00000000 

6.00 

10.00 

49.80 

112.50 

0.00000000 

6.00 

10.00 

49. BO 

157.50 

0.00000000 

6.00 

10.00 

59.90 

22.50 

0.00000000 

6.00 

10.00 

59.90 

67.50 

0.00000000 

6.00 

10.00 

59.90 

112.50 

0.00000000 

6.00 

10.00 

59.90 

157.50 

0.00000000 

6.00 

10.00 

71.10 

15.00 

0.00000000 

6.00 

10.00 

71.10 

45.00 

0.00000000 

6.00 

10.00 

71.10 

75.00 

0.00000000 

6.00 

10.00 

71.10 

105.00 

0.00000000 

6.00 

10.00 

71.10 

135.00 

0.00000000 

6.00 

10.00 

71.10 

165.00 

0.00000000 

6.00 

10.00 

83.80 

15.00 

0.00000000 

6.00 

10.00 

83.80 

45.00 

0.00000000 

6.00 

10.00 

83.80 

75.00 

0.00000000 

6.00 

10.00 

83.80 

105.00 

0.00000000 

6.00 

10.00 

83.80 

135.00 

0.00000000 

6.00 

10.00 

83.80 

165.00 

0.00000000 

6.00 

10.00 

7.70 

270.00 

0.00000000 

6.00 

10.00 

18.60 

270.00 

0.00000000 

6.00 

10.00 

28.30 

210.00 

0.00000000 

6.00 

10.00 

28.30 

270.00 

0.00000000 

6.00 

10.00 

28.30 

330.00 

0.00000000 

6.00 

10.00 

39.60 

210.00 

0.00000000 

6.00 

10.00 

39.60 

270.00 

0.00000000 

6.00 

10.00 

39.60 

330.00 

0.00000000 

6.00 

10.00 
10.00 

49.8  0 

202.50 

0.00000000 
0.00000000 

6.00 

49.80 

247.50 

6.00 

10.00 

49.80 

292.50 

0.00000000 

6.00 

10.00 

49.8  0 

337.50 

0.00000000 

8:88 

18:88 

11:18 

ffi'JS 

8:88888888 

6.00 

10.00 

59.90 

292.50 

0.00000000 

6.00 

10.00 

59.90 

337.50 

0.00000000 

6.00 

10.00 
10.00 

71.10 

195.00 

.00173986 

6.00 

71.10 

225.00 

•00159981 

6.00 

10.00 

71.10 

255.00 

0.00000000 

6.00 

10.00 

71.10 

285.00 

0.00000000 

6.00 

10.00 

71.10 

315.00 

0.00000000 

6.00 

10.00 

71.10 

345.00 

0.00000000 

6.00 

10.00 

83.80 

195.00 

.00117133 

6.00 

10.00 

83.80 

225.00 

.00159927 

6.00 

10.00 

83.80 

255.00 

0.00000000 

6.00 

10.00 

83.80 

285.00 

0.00000000 

6.00 

10.00 

83.80 

315.00 

0.00000000 

6.00 

10.00 

83.80 

345.00 

0.00000000 

SUM 

OF  DIFFERENTIAL  DCSE  RATES 

»   .00611028 
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TABLE  14  CCNT. 
DIFFERENTIAL  INCIDENT  DOSE  RATE  RESULTS 


Y  THETA  PHI  DIFF.DCRAIN 

15.00  7.70  90.00  0.00000000 

15.00  18.60  90.00  0.00000000 

15.00  28.30  30.00  0.00000000 

15.00  28.30  90.00  0.00000000 

15.00  28.30  150.00  0.00000000 

15.00  39.60  30.00  0.00000000 

15.00  39.60  90.00  0.00000000 

15.00  39.60  150.00  0.00000000 

15.00  49.80  22.50  0.00000000 

15.00  49.80  67.50  0.00000000 

15.00  49.80  112.50  0.00000000 

15.00  49.80  157.50  0.00000000 

15.00  59.90  22.50  0.00000000 

15.00  59.90  67.50  0.00000000 

i§:88  §3:38  1J?:§8  8:88888888 

15.00  71.10  15.00  0.00000000 

15.00  71.10  45.00  0.00000000 

15.00  71.10  75.00  0.00000000 

15.00  71.10  105.00  0.00000000 

15.00  71.10  135.00  0.00000000 

15.00  71.10  165.00  0.00000000 

15.00  83.80  15.00  0.00000000 

15.00  83.80  45.00  0.00000000 

15.00  83.80  75.00  0.00000000 

15.00  83.80  105.00  0.00000000 

15.00  83.80  135.00  0.00000000 

15.00  83.80  165.00  0.00000000 

15.00  7.70  270.00  0.00000000 

15.00  18.60  270.00  0.00000000 

§•85 


u 


000000 
0.00000000 
0.00000000 
0.00000000 
0.00000000 
0.00000000 


)0  15.00  59.90  202.50  0.00000000 

)0  15.00  59.90  247.50  0.00000000 

)0  15.00  59.90  292.50  0.00000000 

)0  15.00  59.90  337.50  0.00000000 

)0  15.00  71.10  195.00  .00067857 

)0  15.00  71.10  225.00  0.00000000 

)0  15.00  71.10  255.00  0.00000000 

)0  15.00  71.10  285.00  0.00000000 

)0  15.00  71.10  315.00  0.00000000 

)0  15.00  71.10  345.00  0.00000000 

)0  15.00  83.80  195.00  .00409056 

)0  15.00  83.80  225.00  0.00000000 

)0  15.00  83.80  255.00  0.00000000 

)0  15.00  83.80  285.00  0.00000000 

)0  15.00  83.80  315.00  0.00000000 

)0  15.00  83.80  345.00  0.00000000 

SUM  CF  DIFFERENTIAL  DCSE  RATES  =   .00476914 
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APPENDIX  H 

Description  and  Explanation  of  the  IBM- 1620 
Computer  Program  Used  for  Calculating  the 
Total  Incident  Dose  Rate  at  Point  (x,y)  on 
the  Ceiling  of  a  Blockhouse 

The  total  dose  rate  incident  on  any  point  of  the  ceiling  of  a 

blockhouse  is  given  by  eq.(38), 

K 
max 

D  (x,y)  =  [D  «^j-*i.)/4Tr}y  [0.19l7{E1(Z)a(Eo)d/coselk)-E1(2a(Eo)d/cos6ijk) 

k=l 

+(a'/(l-b)){exp(-£   (E    )d( l-b)/coseik)    "   exp(-2   (E    )d( l-b)/cosGfek)}] 

(38) 
+  0.0095{cosGikEs'2   (E    )d/cosSLk)-cos6^kEa(S   (E    )d/cos€fek)  +  a'E   (E    )d 

x{E,(2   (E    Jdd-M/cosQikJ-EiCS    (E    )d(  l-bVcos6fek)]]]a,  . 

fl   O  a   O  K 

The  FORTRAN  II  source  program  solving  this  equation  is  listed  in  this 

appendix,   A  logic  diagram  is  also  shown  to  help  clarify  the  program. 

Approximately  70  seconds  of  computer  time  were  required  for  each  point 

on  the  ceilino  with  a  K    of  six.   Table  15  defines  the  various  symbols 
&         max 

used  in  this  computer  code.   Results  are  presented  in  Table  16  for  a  two 
foot  square  mesh  on  the  ceiling  of  the  KSU  blockhouse. 


Table  15.   Input  data  and  variables  required  for  the 
IBM- 1620  total  incident  dose  rate  computer 
program. 


Symbo 1*  Exp lanat  ion 


KM  AX  Degree  of  Gaussian  Quadrature  Utilized,  K 

CHRTNO  Christoffel  Numbers,  ak  maK 

OLEGNP  Zeroes  of  the  Legendre  Polynomials,  x, 

PHIO  Incident  Azimuthal  Angle  (radians) 

ARGT1  Argument  of  Zt   Function 
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Table  15  cont. 


Symbol 


ARGT2 

Argument   of  Z±  Function 

ARCT3 

Argument  of  Ej  Function 

ARCT4 

Argument    of  Ej^  Function 

EARGH1 

Et    (ARGT1) 

EARGH2 

Ej    (ARGT?) 

EARGH3 

Ej    (ARGT3) 

EARGH4 

Ei    (ARGT4) 

D0RA1N 

Incident  Dose  Rate    (D   ) 

*Additional  utilized  symbols  are  defined  in  Table  13 
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LOGIC      DIAGRAM      FOR      THE     TOTAL     INCIDENT     DOSE 
RATE      AT     ANY     POINT    ON     A     BLOCKHOUSE     CEILING 


Read  in  program  ) ^Form  X^7| »-  Set  I  ■  1 1- 

and  constants 


HSet  J  =  l 


Form    PHIO,  THETA1, 
THETA2,   ARGT1 


Set    IK-1 


Form   PHI1, 
PHI2 


[CALL    EKARGTI.EARGhTTI — a-|Form  ARGtI] HCALL  E1(ARGT2,EARGH2)| 


|Form    ARGT4"l-« |CALL   EKARGT3,  EARGHlfl-* |Form    ARGtT] 


|CALL     EKARGT4,  EARGH4)  | » 


Form    PAINDO, 
PAIDR 


(PUNCH  X(I),Y(J),  DORAInV« 1 Form     DORAINJ 


m  fna\  ,    |Set    J-  J  +  IY  I 


*—|Set    I  =  I v- 1 X  L_ 
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C      INCIDENT  DOSE  RATE  BY  J.  BARAN  3/16/63 

DIMENSION  X(51)»  YllOOli  CHRTNCUO).  CLEGNP(IO) 
18  FORMAT  (6131 
22  FCRMATIF11.8) 
700  FCRMATI4E18.10) 
715  FORMAT  (F28.2t  F18.2,  F20.6) 
710  READ  700,         ACHD,BCHD,R,H,V 
C      INPUT  ABOVE  IS   2  CARDS 

READ  18,  NPTSX,  NPTSY,  IX,  IY.  UMAX 

C      INPUT  ABOVE  IS   1  CARD 
DC16I=1»KMAX 
READ22.CHRTNCII) 
16  READ22,0LEGNP(I) 
C      INPUT  ABOVE  IS  12  CARDS 
DC  14  1=1, NPTSX,  IX 

14  X(I»  =  1-1 

DC  15  1  =  1, NPTSY  ,  IY 

15  Y(I)=  I 

C      THESE  LOOPS  CALCULATE  THE  X  AND  Y  CO-ORDINATES  OF  INTEREST 

DC  760  1=1,  NPTSX  ,  IX 
DC  720  J=l,  NPTSY,  IY 
C      THESE  LCwPS  REPEAT  THE  ENTIRE  CALCULATION  FOR  DIFFERENT  (X,Y) 

PH11=ATANF((X(I)-R)/Y(J)>  +  3.1415927 

PHI2=ATANF((X(I)+R)/Y(J) )  +  3.1415927 

PHI2M1  =  PHI2  -  PHI1 

PHI1P2  =  PHI2  +  PHI1 

PAIDR=0. 

DC  5  IK=1,KMAX 
C      THIS  LOCP  PERFORMS  THE  INTEGRATION  OVER  INCIDENT  AZIMUTHAL  ANGLES 

IF  (SENSE  SWITCH  1.)  88,  89 

88  PAUSE 

89  PHIC=  (PHI2Ml»CLEGNP(IK)/2.)  +  (PHI1P2/2.) 
THETAl=ATANF(Y(J)/( ( H+V ) »ABSF I CCSF ( PHIO-3. 1415927) )) ) 
THETA2=ATANF(Y(J)/((H-V)*ABSF(CCSF(PHIC-3.1415927)))I 
CCSTH1  =  CCSF(THETAl) 

C0STH2  =  CCSFITHETA2) 

ARGT1  =  0.01825/COSTH2 

CALL  EKARGT1.EARGH1) 
C      THIS  ORDER  TRANSFERS  CONTROL  TO  THE  El  SUBROUTINE  TC 
C      CALCULATE  THE  EXPONENTIAL  INTEGRAL  OF  ARGT1 

ARGT2  =  0.01825/CCSTH1 

CALL    EKARGT2.EARGH2) 

ARGT3    =-0.01825*(BCHD-l.)/CCSTH2 

CALL    EKARGT3.EARGH3) 

ARGT4   =-0.01825»(BCHD-l.)/CCSTHl 

CALL    EKARGT4.EARGH4) 

PAINDO    =0.1917*(EARGH2    -   EARGH1+I ACHD*(EXPF (-ARGT3 )-EXPF(-ARGT4) )/ 
KBCHD-1.)  >)+    0.0095*1  (CCSTH1    /    EXPFIARGT2))    -   0.01825»EARGH2    - 
KCCSTH2    /    EXPF(ARGTl))    +   0.01825*EARGH1    +   ACHD   *    0.01825 
1*(EARGH4    -    EARGH3)) 
5   PAIDR    =    PAIDR   +( PAINDC»CHRTNC( IK) ) 

DCRAIN    =    PAIDR    *    PHI2M1    /    12.566371 
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720  PUNCH  715.  X(I)t  YIJ),  DCRAIN 
760  CONTINUE 

GC  TO  710 

END 


INPUT  DATA 
89.562-2  62.518-3  1.85+0  2.88+0 

1.08+0 
11  20   2   2   6 

.46791393 

.23861919 

.36076157 

.66120939 

.17132449 

.93246951 

.17132449 

-  .93246951 
.36076157 

-  .66120939 
.46791393 

-  .23861919 


116 


TABLE  16. 
TOTAL  INCIDENT  DOSE  RATE  RESULTS 


X                 Y  DCRAIN 

.00  1.00  .010579 

.00  3.00  .015834 

.00  5.00  ,013459 

.00  7.00  .010895 

.00  9.00  .008961 

.00  11.00  .007544 

.00  13.00  .006484 

.00  15.00  .  .005670 

.00  17.00  .005028 

.00  19.00  .004510 

2.00  1.00  .007898 

2.00  3.00  .013270 

2.00  5.00  .012152 

2.00  7.00  .010227 

2.00  9.00  .008592 

2.00  11.00  .007323 

2.00  13.00  .006343 

2.00  15.00  .005575 

2.00  17.00  .004961 

2.00  19.00  .004462 

4.00  1.00  .004043 

4.00  3.00  .008645 

4.00  5.00  .009330 

4.00  7.00  .008617 

4.00  9.00  .007640 

4.00  11.00  .006730 

4.00  13.00  .005954 

4.00  15.00  .005308 

4.00  17.00  .004771 

4.00  19.00  .004323 

6.00  1.00  .002148 

6.00  3.00  .005333 

6.00  5.00  .006653 

6.00  7.00  .006796 

6.00  9.00  .006438 

6.00  11.00  .005924 

6.00  13.00  .005399 

6.00  }5«p0  .004915 

6.00  17.00  .004485 

6.00  19.00  .004108 

8.00  1.00  .001285 

8.00  3.00  .003436 

8.00  5.00  .004712 

6.00  7.00  .005224 

8.00  9.00  .005264 

8.00  11.00  .005068 

8.00  13.00  .004773 

8.00  15.00  .004451 

8.00  17.00  .004136 

8.00  19.00  .003841 

10.00  1.00  .000845 

10.00  3.00  .002348 

10.00  5.00  .003414 

10.00  7.00  .004014 

10.00  9.00  .004256 

10.00  11.00  .004268 

10.00  }|«00  .004150 

10.00  15.00  .003968 

10.00  17.00  .003758 

10.00  19.00  .003543 


APPENDIX  J 

Description  and  Explanation  o£  the  IBM- 1620 
Computer  Program  Used  for  Calculating  the 
Differential  Reflected  Dose  Rate  at  Point 
(x,y)  on  the  Ceiling  of  a  Blockhouse 
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The  differential  reflected  dose  rate  at  any  point  on  the  ceiling 

is  given  by  expression  (44), 

K  K 

max  max 

[l.293(^-<t>1)Do/8Ti}^  ak(ulk-u2k)  jT  a  (0.1917+0. 009SJoJ> 


k-1 


j=l 


x{l+(a'Za(Eo)d  exp(bSa(Eo)d/uo,))/(Jo.}exp{-2a(Eo)d/uoj} 


(44) 


xfcK(B  )+C'|(u  .+cosB)  tO. 
1    s    -'  oj 

The  FORTRAN  II  source  program  which  solves  eq.(44)  is  listed  in  this 
appendix.   A  logic  diagram  for  this  program  is  also  presented  in  this 
appendix. 

The  IBM- 1620  computer  required  approximately  75  seconds  to  calculate 
the  dose  rate  reflected  into  each  of  the  solid  angles  with  a  Kmax  of  six. 
The  total  computer  time  required  for  the  56  solid  angles  per  ceiling  point 
and  the  nine  ceiling  points  considered  was  10%  hours.  These  results  are 
tabulated  as  Table  18. 

The  alphanumeric  characters  utilized  in  this  program  are  defined  in 
Table  17. 


Table  17.   Input  data  and  variables  required  for 

the  IBM- 1620  differential  reflected  dose 
rate  computer  program. 


Symbol* 


Explanation 


KMAX 
CHRTNO 


Degree  of  Gaussian  Quadrature  Utilized,  K 
Christoffel  Numbers,  a. 


Table  17  cont. 
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Symbol* 


Explanation 


OLEGNP 
MAX0T2 

IK 
PIIIO 

costho 

DORARF 


Zeroes  of  the  Legendre  Polynomials,  x. 

Total  Number  of  Solid  Angles  Calculated  About  a  Point 

on  the  Ceiling 

Fixed  Point  Incident  Azimuthal  Angle  Integration  Variable 

Incident  Azimuthal  Angle,  <£ 

Fixed  Point  Incident  Polar  Xngle  Integration  Variable 

Cosine  of  the  Incident  Polar  Angle,  cos6Q 

Dose  Rate  Reflected  into  a  Given  Solid  Angle  (D  ) 


♦Additional  utilized  symbols  are  defined  in  Table  8  and  Table  13 


119 


LOGIC     DIAGRAM    FOR   THE    DIFFERENTIAL     REFLECTED    DOSE 
RATE    AT    ANY     POINT    ON    A     BLOCKHOUSE    CEILING 


f   Start' 

I      Reod  in  program  J *— j  Se>  1-lr 

V    and  constants   J       r- 


Form    J,  THEDEG(J), 
PHIDEG(J) 


[Set  1=  1*1  \~* (no\ 


ISet  JTHETA=1  U»- 

T 


[Form  THETA(JTHETA),  PHI(JTHETA)~| 


Form  MAXOT2, 
X,Y 


[Setl'lNTMX 


Set  JTHETA  = 
JTHETAfl 


1  20 


»-|Set    J  =  INTMYL^-. 

t 

iForm    PH11,  PHI2  U-, 

,     1  , 

| Set  IPHIM] 


I  Set  IJ  =  1  |~«- 


Form    PHIO 


THETA1.THETA2QI 


JSet  IK=lh-r 


Form    COSTHO,  PTHLGT, 
BILDUP,   COSTHS,  P, 
COMPXS,    ALPHA 


|    Set   IJ  =  U~T}-t- 


|Set  IK=IK^1~| 


'Punch    X(l),  Y(J)7 
THEDEG  (1PHI), 
PHIDEG  (1PHD, 
DORARF 


Form    DORARF, 
TODORA 


Form    BETA") *— <JK=KIV 

Yes] 


^/no) .Jset    IPHI=1PHI*1|- 


Set   J  =  J*IY 
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C      DIFFERENTIAL  REFLECTED  DCSE  RATE»  3/28/63  BY  J. A.  BARAN 

DIMENSION  THEDE6199) .PHIDEGI 99 ) ,X( 101 ) ,  YI200),  THETAI99), 

1PHK99I.  SINTHEI99) .CCSTHE(99).  CLEGNP( 10) .CHRTNCt 10 ) 

10  FORMAT  IF6.3) 

18  FORMAT  (2013) 

19  FORMAT  (2F7.2) 

20  FORMAT  ( F12.9.F13. 10 ) 
22  F0RMATIF11.8) 

700  F0RMATI4E18.10) 

710  FORMAT!/, 48H  SUM  OF  DIFFERENTIAL  DOSE  RATES  »    F10. 

18.//) 
71*  FORMAT  (60H  X        Y        THETA       PHI     DIFF.DO 

1RARF   ./) 
715  FORMAT  (10H  F6.2.  F9.2.  F10.2.  F10.2.  F13.8) 

30  READ  10,  EO 
C      INPUT  ABOVE  IS   1  CARD 

READ  20,   C,  CPRIME 
C      INPUT  ABOVE  IS   1  CARD 

READ  700,         ACHD.BCHD.R.H.V.XMAX,  YMAX 
C      INPUT  ABOVE  IS   2  CARDS 

READ  18,     KMAX,  NPTSX,  NPTSY,  INTMX,  INTMY.IX.IY.       MAXCME 
C      INPUT  ABOVE  IS   1  CARD 
D016I=1»KMAX 
READ22.CHRTNCI I) 
16  READ22.CLEGNPII) 
C      INPUT  ABOVE  IS  12  CARDS 
DO  21  I=1,MAX0ME 
J  =  MAXCME  +  I 

READ  19,  THEDEG(I),  PHIDEGI I) 
THEDEG(J)  =  THEDEG(I) 

21  PHIDEGU)  =  180.  +  PHIDEG(I) 

C      THIS  LOOP  CONVERTS  THE  SOLID  ANGLE  LIMITS  TO  RADIANS  AND  UTILIZES 
C      SYMMETRY  TO  EXPAND  THE  SOLID  ANGLES  TO  COVER  THE  HEMISPHERE 

MAX0T2  =  MAXOME  *  2 

DO  14  I=INTMX,  NPTSX.  IX 

14  X(I)  =  1-1 

DO  15  I=INTMY.  NPTSY.  IY 

15  Y( I  )  =  I 

C      THESE  LOOPS  CALCULATE  THE  X  AND  Y  CO-ORDINATES  OF  INTEREST 

DO  76JTHETA=1.MAXCT2 

THETA(JTHETA)  =  THEDEGI JTHETA) /57. 295779 

SINTHEI JTHETA)*SINF(THETAl JTHETA) ) 

COS! HE (JTHETA )=COSF(THETA( JTHETA) ) 
76  PHI (JTHETA)  «  PHIDEG ( JTHETA) /57. 295779 

DO  760  I=INTMX.  NPTSX.  IX 
DO  720  J=INTMY.  NPTSY.  IY 
C      THESE  LOOPS  REPEAT  THE  ENTIRE  CALCULATION  FOR  DIFFERENT  (X.Y, 
C      WHERE  THE  DIFFERENTIAL  REFLECTED  DOSE  RATES  ARE  CALCULATED 

IF  (SENSE  SWITCH  1)  86,  87 

86  PAUSE 

87  PHI1=ATANF((X(I)-R)/Y(J) )  +  3.1415927 
PHI2=ATANF( <X( I )+R)/Y(J) )  +  3.1415927 
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PHI1P2  «  PHI1  +  PHI2 

PHI2M1  =  PHI2  -  PHI1 

TCDCRA  =  0. 

PUNCH  714 

DC  65  IPHI  =  1.  MAXCME 

00  65  IPHI  =  1.  MAXCT2 

THIS  LOOP  REPEATS  THE  CALCULATIONS  FOR  EACH  SOLID  ANGLE 

BETA  «  0. 

DO  5  IK=1,KMAX 

THIS  LOOP  PERFORMS  THE  INTEGRATION  OVER  INCIDENT  AZIMUTHAL  ANGLES 

IF  (SENSE  SWITCH  1)  88,  89 

88  PAUSE 

89  ALPHA  =  0. 

PHIO=  (PHI2Ml»CLEGNP(IK)/2.)  +  (PHI1P2/2.) 

THETA1=ATANF(Y< J>/< < H+V ) *ABSF ( CCSF ( PHI  0-3. 1415927 ) I ) ) 

THETA2=ATANF(Y< J)/ ( ( H-V)*ABSF( COSF (PHI  0-3.1 415927)))) 

CT1PT2  =  C0SF(THETA1)+C0SF(THETA2) 

CT2MT1  =  CCSF(THETA2)-CCSF(THETA1) 

DO  4  IJ=1,KMAX 

THIS  LOOP  PERFORMS  THE  INTEGRATION  OVER  INCIDENT  POLAR  ANGLES 

CCSTHC=( (CT2MT1        )*CLEGNP( IJ ) /2. )+(CTlPT2*0.5 ) 

SINTHO  =  SQRTFI l.-COSTHO»C0STHC) 

PTHLGT=0.01825/CCSTHC 

BILDUP=1.+ACHD*PTHLGT*EXPF(BCHD*PTHLGT) 

COSTHS  =  (SINTHO*COSF(PHI(IPHI l-PHIC+3. 1415927 ) *SINTHE< IPHI)) 
1  -  (COSTHO*C0STHE(IPHD) 

P=l. /< 1. +( EC* (1. -COSTHS I/O. 511) ) 

CCMPXS=( 3.970562     ) *( P**2 ) »( 1 .+( P**2 )-P*( l.-( CCSTHS**2 ) )) 

ALPHA1  =  (0. 1917+0. 0095*CCSTHC ) * ( C*CCMPXS+CPRIME > *CHRTNC( I  J ) 
1*  BILDUP  /  (EXPFI    PTHLGT      )*(COSTHC  +  CCSTHEI IPHI ) ) ) 

4  ALPHA  ■  ALPHA  +  ALPHA1 
BETAC=-CT2MT1*  ALPHA  *  CHRTNC(IK) 

5  BETA=  BETAC+BETA 

DCRARF  =  BETA  *  5. 7723214E-3*  PHI2M1 
TODCRA  =  DCRARF  +  TCDCRA 
65  PUNCH  715. X( I) .Y( J) •  THEDEGI IPHI ) .  PHIDEG ( IPHI ) .  DCANDI 
65  PUNCH  715, X( I) »Y(J) »  THEDEGI I  PHI ) ,  PHIDEG ( IPHI ) ,  DCRARF 
PUNCH  710,  TCDCRA 
720  CONTINUE 
760  CONTINUE 
GO  TO  30 
END 
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INPUT  DATA 
1.252 
.064501061  0.0089294690 
89.562-2  62.518-3  1.85+0  2.88+0 

1.08+0  10.0+0  20.0+0 

6  7  15  1  5  3  5  28 
.46791393 
.23861919 
.36076157 
.66120939 
.17132449 
.93246951 
.17132449 

-  .93246951 
.36076157 

-  .66120939 
.46791393 

-  .23861919 

7.70  90.00 
18.60  90.00 
28.30  30.00 
28.30  90.00 
28.30  150.00 
39.60  30.00 
39.60  90.00 
39.60    150.00 


49.80 

22.50 

49.80 

67.50 

49.80 

112.50 

49.80 

157.50 

59.90 

22.50 

59.90 

67.50 

59.90 

112.50 

59.90 

157.50 

71.10 

15.00 

71.10 

45.00 

71.10 

75.00 

71.10 

105.00 

71.10 

135.00 

71.10 

165.00 

83.80 

15.00 

83.80 

45.00 

83.80 

75.00 

83.80 

105.00 

83.80 

135.00 

83.80    165.00 


TABLE  18. 
DIFFERENTIAL  REFLECTED  DCSE  RATE  RESULTS 
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X 

Y 

THETA 

PHI 

DIFF.DCRARF 

.00 

5.00 

7.70 

90.00 

.00001205 

.00 

5.00 

18.60 

90.00 

.00001255 

.00 

5.00 

28.30 

30.00 

.00001662 

.00 

5.00 

28.30 

90.00 

.00001339 

.00 

5.00 

28.30 

150.00 

.00001168 

.00 

5.00 

39.60 

30.00 

.00002135 

.00 

5.00 

39.60 

90.00 

.00001499 

.00 

5.00 

39.60 

150.00 

.00001246 

.00 

5.00 

49.80 

22.50 

.00003067 

.00 

5.00 

49.80 

67.50 

.00002052 

.00 

5.00 

49.80 

112.50 

.00001530 

.00 

5.00 

49.80 

157.50 

.00001359 

.00 

5.00 

59.90 

22.50 

.00004689 

.00 

5.00 

59.90 

67.50 

.00002604 

.00 

5.00 

59.90 

112.50 

.00001785 

.00 

5.00 

59.90 

157.50 

.00001557 

.00 

5.00 

71.10 

15.00 

.00009413 

.00 

5.00 

71.10 

45.00 

.00005615 

.00 

5.00 

71.10 

75.00 

.00003249 

.00 

5.00 

71.10 

105.00 

.00002364 

.00 

5.00 

71.10 

135.00 

.00002026 

.00 

5.00 

71.10 

165.00 

.00001903 

.00 

5.00 

83.80 

15.00 

.00022883 

.00 

5.00 

83.80 

45.00 

.00011012 

.00 

5.00 

83.80 

75.00 

.00005166 

.00 

5.00 

83.80 

105.00 

.00003446 

.00 

5.00 

83.80 

135.00 

.00002874 

.00 

5.00 

83.80 

165.00 

.00002677 

.00 

5.00 

7.70 

270.00 

.00001205 

.00 

5.00 

18.60 

270.00 

.00001255 

.00 

5.00 

28.30 

210.00 

.00001168 

.00 

5.00 

28.30 

270.00 

.00001339 

.00 

5.00 

28.30 

330.00 

.00001662 

.00 

5.00 

39.60 

210.00 

.00001246 

.00 

5.00 

39.60 

270.00 

.00001499 

.00 

5.00 

39.60 

330.00 

.00002135 

.00 

5.00 

49.80 

202.50 

.00001359 

.00 

5.00 

49.80 

247.50 

.00001530 

.00 

5.00 

49.80 

292.50 

.00002052 

.00 

5.00 

49.80 

337.50 

.00003067 

.00 

5.00 

59.90 

202.50 

.00001557 

.00 

5.00 

59.90 

247.50 

.00001785 

.00 

5.00 

59.90 

292.50 

.00002604 

.00 

5.00 

59.90 

337.50 

.00004689 

.00 

5.00 

71.10 

195.00 

.00001903 

.00 

5.00 

71.10 

225.00 

.00002026 

.00 

5.00 

71.10 

255.00 

.00002364 

.00 

5.00 

71.10 

285.00 

.00003249 

.00 

5.00 

71.10 

315.00 

.00005615 

.00 

5.00 

71.10 

345.00 

.00009413 

.00 

5.00 

83.80 

195.00 

.00002677 

.00 

5.00 

83.80 

225.00 

.00002874 

.00 

5.00 

83.80 

255.00 

.00003446 

.00 

5.00 

83.80 

285.00 

.00005166 

.00 

5.00 

83.80 

315.00 

.00011012 

.00 

5.00 

83.80 

345.00 

.00022883 

SUM 

CF  DIFFERENTIAL  DCSE  RATES 

■   .00205586 

TABLE  18  CCNT. 
DIFFERENTIAL  REFLECTED  DCSE  RATE  RESULTS 
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THETA 


.00 

10.00 

7.70 

.00 

10.00 

18.60 

.00 

10.00 

28.30 

.00 

10.00 

28.30 

.00 

10.00 

28.30 

.00 

10.00 

39.60 

.00 

10.00 

39.60 

.00 

10.00 

39.60 

.00 

10.00 

49.80 

.00 

10.00 

49.80 

.00 

10.00 

49.80 

.00 

10.00 

49.8  0 

.00 

10.00 

59.90 

.00 

10.00 

59.90 

.00 

10.00 

59.90 

.00 

10.00 

59.90 

.00 

10.00 

71.10 

.00 

10.00 

71.10 

.00 

10.00 

71.10 

.00 

10.00 

71.10 

.00 

10.00 

71.10 

.00 

10.00 

71.10 

.00 

10.00 

83.80 

.00 

10.00 

83.80 

.00 

10.00 

83.80 

.00 

10.00 

83.80 

.00 

10.00 

83.80 

.00 

10.00 

83.80 

.00 

10.00 

7.70 

.00 

10.00 

18.60 

.00 

10.00 

28.30 

.00 

10.00 

28.30 

.00 

10.00 

28.30 

.00 

10.00 

39.60 

.00 

10.00 

39.60 

.00 

10.00 

39.60 

.00 

10.00 

49.80 

.00 

10.00 

49.80 

.00 

10.00 

49.80 

.00 

10.00 

49.80 

.00 

10.00 

59.90 

.00 

10.00 

59.90 

.00 

10.00 

59.90 

.00 

10.00 

59.90 

.00 

10.00 

71.10 

.00 

10.00 

71.10 

.00 

10.00 

71.10 

.00 

10.00 

71.10 

.00 

10.00 

71.10 

.00 

10.00 

71.10 

.00 

10.00 

83.80 

.00 

10.00 

83.80 

.00 

10.00 

83.80 

.00 

10.00 

83.80 

.00 

10.00 

83.80 

.00 

10.00 

83.80 

SUM  OF  DIFFERENTIAL  DCSE  RATES 


PHI 

DIFF.DCRARF 

90.00 

.00000531 

90.00 

.00000553 

30.00 

.00000822 

90.00 

.00000593 

150.00 

.00000494 

30.00 

.00001141 

90.00 

.00000668 

150.00 

.00000528 

22.50 

.00001854 

67.50 

.00000984 

112.50 

.00000668 

157.50 

.00000581 

22.50 

.00003152 

67.50 

.00001278 

112.50 

.00000794 

157.50 

.00000680 

15.00 

.00007550 

45.00 

.00003331 

75.00 

.00001602 

105.00 

.00001104 

135.00 

•00000933 

165.00 

.00000872 

15.00 

.00020750 

45.00 

.00007019 

75.00 

.00002783 

105.00 

.00001800 

135.00 

.00001495 

165.00 

.00001391 

270.00 

.00000531 

270.00 

.00000553 

210.00 

.00000494 

270.00 

.00000593 

330.00 

.00000822 

210.00 

.00000528 

270.00 

.00000668 

330.00 

.00001141 

202.50 

.00000581 

247.50 

.00000668 

292.50 

.00000984 

337.50 

.00001854 

202.50 

.00000680 

247.50 

.00000794 

292.50 

.00001278 

337.50 

.00003152 

195.00 

.00000872 

225.00 

.00000933 

255.00 

.00001104 

285.00 

.00001602 

315.00 

.00003331 

345.00 

.00007550 

195.00 

.00001391 

225.00 

.00001495 

255.00 

.00001800 

285.00 

.00002783 

315.00 

.00007019 

345.00 

.00020750 

RATES  ■ 

.00131931 
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TABLE  18  CCNT. 
DIFFERENTIAL  REFLECTED  DCSE  RATE  RESULTS 


THETA       PHI     DIFF.DGRARF 

90.00  .00000283 

90.00  .00000295 

30.00  .00000465 

90.00  .00000317 

150.00  .00000259 

30.00  .00000669 

90.00  .00000358 

150.00  .00000277 

22.50  .00001148 

67.50  .00000546 

112.50  .00000355 

157.50  .00000306 

22.50  .00002033 

67.50  .00000718 

112.50  .00000428 

157.50  .00000364 

15.00  .00005194 

45.00  .00002030 

75.00  .00000910 

105.00  .00000614 

135.00  .00000516 

165.00  .00000482 

15.00  .00015052 

45.00  .00004526 

75.00  .00001708 

105.00  .00001094 

135.00  .00000907 

165.00  .00000844 

270.00  .00000283 

270.00  .00000295 

210.00  .00000259 

270.00  .00000317 

330.00  .00000465 

210.00  .00000277 

270.00  .00000358 

330.00  .00000669 

202.50  .00000306 

247.50  .00000355 

292.50  .00000546 

337.50  .00001148 

202.50  .00000364 

247.50  .00000428 

292.50  .00000718 

337.50  .00002033 

195.00  .00000482 

225.00  .00000516 

255.00  .00000614 

285.00  .00000910 

315.00  .00002030 

345.00  .00005194 

195.00  .00000844 

225.00  .00000907 

255.00  .00001094 

285.00  .00001708 

315.00  .00004526 

345.00  .00015052 

SUM  CF  DIFFERENTIAL  DOSE  RATES  =   .00085421 


.00 

15.00 

7.70 

.00 

15.00 

18.60 

.00 

15.00 

28.30 

.00 

15.00 

28.30 

.00 

15.00 

28.30 

.00 

15.00 

39.60 

.00 

15.00 

39.60 

.00 

15.00 

39.60 

.00 

15.00 

49.80 

.00 

15.00 

49.80 

.00 

15.00 

49.80 

.00 

15.00 

49.80 

.00 

15.00 

59.90 

.00 

15.00 

59.90 

.00 

15.00 

59.90 

.00 

15.00 

59.90 

.00 

15.00 

71.10 

.00 

15.00 

71.10 

.00 

15.00 

71.10 

.00 

15.00 

71.10 

.00 

15.00 

71.10 

.00 

15.00 

71.10 

.00 

15.00 

83.80 

.00 

15.00 

83.80 

.00 

15.00 

83.80 

.00 

15.00 

83.80 

.00 

15.00 

83.80 

.00 

15.00 

83.80 

.00 

15.00 

7.70 

.00 

15.00 

18.60 

.00 

15.00 

28.30 

.00 

15.00 

28.30 

.00 

15.00 

28.30 

.00 

15.00 

39.60 

.00 

15.00 

39.60 

.00 

15.00 

39.60 

.00 

15.00 

49.80 

.00 

15.00 

49.80 

.00 

15.00 

49.80 

.00 

15.00 

49.80 

.00 

15.00 

59.90 

.00 

15.00 

59.90 

.00 

15.00 

59.90 

.00 

15.00 

59.90 

.00 

15.00 

71.10 

.00 

15.00 

71.10 

.00 

15.00 

71.10 

.00 

15.00 

71.10 

.00 

15.00 

71.10 

.00 

15.00 

71.10 

.00 

15.00 

83.80 

.00 

15.00 

83.80 

.00 

15.00 

83.80 

.00 

15.00 

83.80 

.00 

15.00 

83.80 

.00 

15.00 

83.80 
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TABLE  18  CCNT. 
DIFFERENTIAL  REFLECTED  DCSE  RATE  RESULTS 


3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 
3.00 


THETA 


5.00 

7.70 

5.00 

18.60 

5.00 

28.30 

5.00 

28.30 

5.00 

28.30 

5.00 

39.60 

5.00 

39.60 

5.00 

39.60 

5.00 

49.80 

5.00 

49.80 

5.00 

49.80 

5.00 

49.80 

5.00 

59.90 

5.00 

59.90 

5.00 

59.90 

5.00 

59.90 

5.00 

71.10 

5.00 

71.10 

5.00 

71.10 

5.00 

71.10 

5.00 

71.10 

5.00 

71.10 

5.00 

83.80 

5.00 

83.60 

5.00 

83.80 

5.00 

83.80 

5.00 

83.80 

5.00 

83.80 

5.00 

7.70 

5.00 

18.60 

5.00 

28.30 

5.00 

28.30 

5.00 

28.30 

5.00 

39.60 

5.00 

39.60 

5.00 

39.60 

5.00 

49.80 

5.00 

49.80 

5.00 

49.80 

5»00 

49.80 

5.00 

59.90 

5.00 

59.90 

5.00 

59.90 

5.00 

59.90 

5.00 

71.10 

5.00 

71.10 

5.00 

71.10 

5.00 

71.10 

5.00 

71.10 

5.00 

71.10 

5.00 

83.80 

5.00 

83.80 

5.00 

83.80 

5.00 

83.80 

5.00 

83.80 

5.00 

83.80 

PHI 

DIFF.DCRARF 

90.00 

.00000946 

90.00 

.00001030 

30.00 

.00001366 

90.00 

.00001150 

150.00 

.00000931 

30.00 

.00001864 

90.00 

.00001374 

150.00 

.00001007 

22.50 

.00002714 

67.50 

.00002162 

112.50 

.00001384 

157.50 

.00001095 

22.50 
67.50 

.00004442 
.00003143 

112.50 

.00001684 

157.50 

.00001269 

15.00 

.00008239 

45.00 

.00008198 

75.00 

.00004452 

105.00 

.00002476 

135.00 

.00001799 

165.00 

.00001547 

15.00 

.00020667 

45.00 

.00020578 

75.00 

.00008725 

105.00 

.00003953 

135.00 

.00002660 

165.00 

.00002235 

270.00 

.00000897 

270.00 

.00000903 

210.00 

.00000870 

270.00 

.00000936 

330.00 

.00001160 

210.00 

.00000924 

270.00 

.00001015 

330.00 

.00001391 

202.50 

.00001018 

247.50 

.00001060 

292.50 

.00001267 

337.50 

.00001866 

202.50 

.00001169 

247.50 

.00001223 

292.50 

.00001509 

337.50 

.00002534 

195.00 

.00001457 

225.00 

.00001461 

255.00 

.00001561 

285.00 

.00001832 

315.00 

.00002553 

345.00 

.00004585 

195.00 

.00002090 

225.00 

.00002096 

255.00 

.00002257 

285.00 

.00002717 

315.00 

.00004111 

345.00 

.00009083 

SUM  CF  DIFFERENTIAL  DCSE  RATES  *   .00168663 


TABLE  18  CCNT. 
DIFFERENTIAL  REFLECTED  DCSE  RATE  RESULTS 
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X 

Y 

THETA 

PHI 

DIFF.DCRARF 

3.00 

10.00 

7.70 

90.00 

.00000490 

3.00 

10.00 

18.60 

90.00 

.00000528 

3.00 

10.00 

28.30 

30.00 

.00000793 

3.00 

10.00 

28.30 

90.00 

.00000583 

3.00 

10.00 

28.30 

150.00 

.00000459 

3.00 

10.00 

39.60 

30.00 

.00001165 

3.00 

10.00 

39.60 

90.00 

.00000684 

3.00 

10.00 

39.60 

150.00 

.00000493 

3.00 

10.00 

49.80 

22.50 

.00001939 

3.00 

10.00 

49.80 

67.50 

.00001121 

3.00 

10.00 

49.80 

112.50 

.00000668 

3.00 

10.00 

49.80 

157.50 

.00000541 

3.00 

10.00 

59.90 

22.50 

.00003545 

3.00 

10.00 

59.90 

67.50 

.00001582 

3.00 

10.00 

59.90 

112.50 

.00000809 

3.00 

10.00 

59.90 

157.50 

.00000636 

3.00 

10.00 

71.10 

15.00 

.00008116 

3.00 

10.00 

71.10 

45.00 

.00005021 

3.00 

10.00 

71.10 

75.00 

.00002068 

3.00 

10.00 

71.10 

105.00 

.00001181 

3.00 

10.00 

71.10 

135.00 

.00000910 

3.00 

10.00 

71.10 

165.00 

.00000812 

3.00 

10.00 

83.80 

15.00 

.00023559 

3.00 

10.00 

83.80 

45.00 

.00012411 

3.00 

10.00 

83.80 

75.00 

.00003927 

3.00 

10.00 

83.80 

105.00 

.00001989 

3.00 

10.00 

83.80 

135.00 

.00001482 

3.00 

10.00 

83.80 

165.00 

.00001309 

3.00 

10.00 

7.70 

270.00 

.00000470 

3.00 

10.00 

18.60 

270.00 

.00000477 

3.00 

10.00 

28.30 

210.00 

.00000438 

3.00 

10.00 

28.30 

270.00 

.00000499 

3.00 

10.00 

28.30 

330.00 

.00000686 

3.00 

10.00 

39.60 

210.00 

.00000467 

3.00 

10.00 

39.60 

270.00 

.00000549 

3.00 

10.00 

39.60 

330.00 

.00000891 

3.00 

10.00 

49.80 

202.50 

.00000517 

3.00 

10.00 

49.8  0 

247.50 

.00000562 

3.00 

10.00 

49.80 

292.50 

.00000745 

3.00 

10.00 

49.80 

337.50 

.00001359 

3.00 

10.00 

59.90 

202.50 

.00000606 

3.00 

10.00 

59.90 

247.50 

.00000663 

3.00 

10.00 

59.90 

292.50 

.00000922 

3.00 

10.00 

59.90 

337.50 

.00002082 

3.00 

10.00 

71.10 

195.00 

.00000785 

3.00 

10.00 

71.10 

225.00 

.00000808 

3.00 

10.00 

71.10 

255.00 

.00000899 

3.00 

10.00 

71.10 

285.00 

.00001147 

3.00 

10.00 

71.10 

315.00 

.00001945 

3.00 

10.00 

71.10 

345.00 

.00004655 

3.00 

10.00 

83.80 

195.00 

.00001262 

3.00 

10.00 

83.80 

225.00 

.00001302 

3.00 

10.00 

83.80 

255.00 

.00001460 

3.00 

10.00 

83.80 

285.00 

.00001922 

3.00 

10.00 

83.80 

315.00 

.00003635 

3.00 

10.00 

83.80 

345.00 

.00011223 

SUM 

CF  DIFFERENTIAL  DC 

SE  RATES 

-   .00121825 
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TABLE  18  CCNT. 
DIFFERENTIAL  REFLECTED  DCSE  RATE  RESULTS 


X 

Y 

THETA 

PHI 

DIFF.DCRARF 

3.00 

15.00 

7.70 

90.00 

.00000273 

3.00 

15.00 

18.60 

90.00 

.00000293 

3.00 

15.00 

28.30 

30.00 

.00000467 

3.00 

15.00 

28.30 

90.00 

.00000321 

3.00 

15.00 

28.30 

150.00 

.00000251 

3.00 

15.00 

39.60 

30.00 

.00000705 

3.00 

15.00 

39.60 

90.00 

.00000373 

3.00 

15.00 

39.60 

150.00 

.00000269 

3.00 

15.00 

49.8  0 

22.50 

.00001241 

3.00 

15.00 

49.80 

67.50 

.00000616 

3.00 

15.00 

49.80 

112.50 

.00000363 

3.00 

15.00 

49.80 

157.50 

.00000297 

3.00 

15.00 

59.90 

22.50 

.00002341 

3.00 

15.00 

59.90 

67.50 

.00000859 

3.00 

15.00 

59.90 

112.50 

.00000442 

3.00 

15.00 

59.90 

157.50 

.00000353 

3.00 

15.00 

71.10 

15.00 

.00005835 

3.00 

15.00 

71.10 

45.00 

.00002851 

3.00 

15.00 

71.10 

75.00 

.00001107 

3.00 

15.00 

71.10 

105.00 

.00000653 

3.00 

15.00 

71.10 

135.00 

.00000515 

3.00 

15.00 

71.10 

165.00 

.00000466 

3.00 

15.00 

83.80 

15.00 

.00017796 

3.00 

15.00 

83.80 

45.00 

.00007049 

3.00 

15.00 

83.80 

75.00 

.00002181 

3.00 

15.00 

83.80 

105.00 

.00001182 

3.00 

15.00 

83.80 

135.00 

.00000913 

3.00 

15.00 

83.80 

165.00 

.00000821 

3.00 

15.00 

7.70 

270.00 

.00000265 

3.00 

15.00 

18.60 

270.00 

.00000270 

3.00 

15.00 

28.30 

210.00 

.00000242 

3.00 

15.00 

28.30 

270.00 

.00000285 

3.00 

15.00 

28.30 

330.00 

.00000414 

3.00 

15.00 

39.60 

210.00 

.00000258 

3.00 

15.00 

39.60 

270.00 

.00000316 

3.00 

15.00 

39.60 

330.00 

.00000564 

3.00 

15.00 

49.8  0 

202.50 

.00000287 

3.00 

15.00 

49.80 

247.50 

.00000320 

3.00 

15.00 

49.80 

292.50 

.00000450 

3.00 

15.00 

49.80 

337.50 

.00000921 

3.00 

15.00 

59.90 

202.50 

.00000341 

3.00 

15.00 

59.90 

247.50 

.00000383 

3.00 

15.00 

59.90 

292.50 

.00000570 

3.00 

15.00 

59.90 

337.50 

.00001504 

3.00 

15.00 

71.10 

195.00 

.00000455 

3.00 

15.00 

71.10 

225.00 

.00000474 

3.00 

15.00 

71.10 

255.00 

.00000539 

3.00 

15.00 

71.10 

285.00 

.00000721 

3.00 

15.00 

71.10 

315.00 

.00001364 

3.00 

15.00 

71.10 

345.00 

.00003686 

3.00 

15.00 

83.80 

195.00 

.00000801 

3.00 

15.00 

83.80 

225.00 

.00000836 

3.00 

15.00 

83.80 

255.00 

.00000957 
.00001321 

3.00 

15.00 

83.80 

285.00 

3.00 

15.00 

83.80 

315.00 

.00002806 

3.00 

15.00 

83.80 

345.00 

.00009790 

SUM  CF  DIFFERENTIAL  DCSE  RATES  =   .00082004 
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TABLE  18  CCNT. 
DIFFERENTIAL  REFLECTED  DCSE  RATE  RESULTS 


X 

Y 

THETA 

PHI 

DIFF.DCRARF 

6.00 

5.00 

7.70 

90.00 

.00000526 

6.00 

5.00 

18.60 

90.00 

.00000598 

6.00 

5.00 

28.30 

30.00 

.00000768 

6.00 

5.00 

28.30 

90.00 

.00000705 

6.00 

5.00 

28.30 

150.00 

.00000532 

6.00 

5.00 

39.60 

30.00 

.00001069 

6.00 

5.00 

39.60 

90.00 

.00000913 

6.00 

5.00 

39.60 

150.00 

.00000587 

1:88 

5.00 

41:88 

6^8 

•00001486 
.00001608 

6.00 

5.00 

49.8  0 

112.50 

.00000931 

6.00 

5.00 

49.80 

157.50 

.00000640 

6.00 

5.00 

59.90 

22.50 

.00002379 

6.00 

5.00 

59.90 

67.50 

.00002690 

6.00 

5.00 

59.90 

112.50 

.00001211 

6.00 

5.00 

59.90 

157.50 

.00000757 

6.00 

5.00 

71.10 

15.00 

.00003724 

6.00 

5.00 

71.10 

45.00 

.00006489 

6.00 

5.00 

71.10 

75.00 

.00004595 

6.00 

5.00 

71.10 

105.00 

.00002074 

6.00 

5.00 

71.10 

135.00 

.00001210 

6.00 

5.00 

71.10 

165.00 

.00000932 

6.00 

5.00 

83.80 

15.00 

.00008343 

6.00 

5.00 

83.80 

45.00 

.00017957 

6.00 

5.00 

83.80 

75.00 

.00011140 

t:88 

i:88 

§1:§8 

lk-88 

•.mmil 

6.00 

5.00 

83.80 

165.00 

.00001427 

6.00 

5.00 

7.70 

270.00 

.00000477 

6.00 

5.00 

18.60 

270.00 

.00000470 

6.00 

5.00 

28.30 

210.00 

.00000467 

6.00 

5.00 

28.30 

270.00 

.00000481 

*:88 

1:88 

H:iB 

m-.88 

:8888MW 

6.00 

5.00 

39.60 

270.00 

.00000515 

6.00 

5.00 

39.60 

330.00 

.00000672 

6.00 

5.00 

49.80 

202.50 

.00000555 

6.00 

5.00 

49.80 

247.50 

.00000550 

6:88 

§:88 

*3:§8 

SI?:§8 

:mmu 

6.00 

5.00 

59.90 

202.50 

.00000644 

6.00 

5.00 

59.90 

247.50 

.00000637 

6.00 

5.00 

59.90 

292.50 

.00000727 

6.00 

5.00 

59.90 

337.50 

.00001084 

6.00 

5.00 

71.10 

195.00 

.00000829 

6.00 

5.00 

71.10 

225.00 

.00000798 

6.00 

5.00 

71.10 

255.00 

.00000817 

6.00 

5.00 

71.10 

285.00 

.00000898 

6.00 

5.00 

71.10 

315.00 

.00001114 

6.00 

5.00 

71.10 

345.00 

.00001750 

6.00 

5.00 

83.80 

195.00 

.00001252 

6.00 

5.00 

83.80 

225.00 

.00001201 

6.00 

5.00 

83.80 

255.00 

.00001232 

6.00 

5.00 

83.80 

285.00 

.00001367 

6.00 

5.00 

83.80 

315.00 

.00001751 

6.00 

5.00 

83.80 

345.00 

.00003059 

SUM  CF 

DIFFERENTIAL  DCSE 

RATES  = 

.00106972 
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TABLE  18  CCNT. 
DIFFERENTIAL  REFLECTED  DCSE  RATE  RESULTS 


X 

Y 

THETA 

PHI 

DIFF.DORARF 

6.00 

10.00 

7.70 

90.00 

.00000382 

6.00 

10.00 

18.60 

90.00 

.00000425 

6.00 

10.00 

28.30 

30.00 

.00000629 

6.00 

10.00 

28.30 

90.00 

.00000487 

6.00 

10.00 

28.30 

150.00 

.00000363 

6.00 

10.00 

39.60 

30.00 

.00000954 

6.00 

10.00 

39.60 

90.00 

.00000602 

6.00 

10.00 

39.60 

150.00 

.00000394 

6.00 

10.00 

49.80 

22.50 

.00001547 

6.00 

10.00 

49.80 

67.50 

.00001098 

6.00 

10.00 

49.8  0 

112.50 

.00000580 

6.00 

10.00 

49.8  0 

157.50 

.00000431 

6.00 

10.00 

59.90 

22.50 

.00002861 

6.00 

10.00 

59.90 

67.50 

.00001713 

6.00 

10.00 

59.90 

112.50 

.00000722 

6.00 

10.00 

59.90 

157.50 

.00000510 

6.00 

10.00 

71.10 

15.00 

.00005731 

6.00 

10.00 

71.10 

45.00 

.00005828 

6.00 

10.00 

71.10 

75.00 

.00002439 

6.00 

10.00 

71.10 

105.00 

.00001135 

6.00 

10.00 

71.10 

135.00 

.00000775 

6.00 

10.00 

71.10 

165.00 

.00000653 

6.00 

10.00 

83.80 

15.00 

.00016017 

6.00 

10.00 

83.80 

45.00 

.00016384 

6.00 

10.00 

83.80 

75.00 

.00005242 

6.00 

10.00 

83.80 

105.00 

.00002027 

6.00 

10.00 

83.80 

135.00 

.00001303 

6.00 

10.00 

83.80 

165.00 

.00001080 

6.00 

10.00 

7.70 

270.00 

.00000353 

6.00 

10.00 

18.60 

270.00 

.00000351 

6.00 

10.00 

28.30 

210.00 

.00000331 

6.00 

10.00 

28.30 

270.00 

.00000362 

6.00 

10.00 

28.30 

330.00 

.00000485 

6.00 

10.00 

39.60 

210.00 

.00000353 

6.00 

10.00 

39.60 

270.00 

.00000393 

6.00 

10.00 

39.60 

330.00 

.00000598 

6.00 

10.00 

49.80 

202.50 

.00000393 

6.00 

10.00 

49.80 

247.50 

.00000410 

6.00 

10.00 

49.80 

292.50 

.00000506 

6.00 

10.00 

49.8  0 

337.50 

.00000852 

6.00 

10.00 

59.90 

202.50 

.00000463 

6.00 

10.00 

59.90 

247.50 

.00000484 

6.00 

10.00 

59.90 

292.50 

.00000613 

6.00 

10.00 

59.90 

337.50 

.00001196 

6.00 

10.00 

71.10 

195.00 

.00000610 

6.00 

10.00 

71.10 

225.00 

.00000609 

6.00 

10.00 

71.10 

255.00 

.00000651 

6.00 

10.00 

71.10 

285.00 

.00000771 

6.00 

10.00 

71.10 

315.00 

.00001123 

6.00 

10.00 

71.10 

345.00 

.00002385 

6.00 

10.00 

83.80 

195.00 

.00001005 

6.00 

10.00 

83.80 

225.00 

.00001004 

6.00 

10.00 

83.80 

255.00 

.00001078 

6.00 

10.00 

83.80 

285.00 

.00001296 

6.00 

10.00 

83.80 

315.00 

.0000199B 

6.00 

10.00 

83.80 

345.00 

.00005088 

SUM 

CF  DIFFEREI 

UIAL  DOSE 

RATES  <= 

.00098100 

TABLE  18  CCNT. 
DIFFERENTIAL  REFLECTED  DOSE  RATE  RESULTS 
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THETA 


6.00 

15.00 

7.70 

6.00 

15.00 

16.60 

6.00 

15.00 

28.30 

6.00 

15.00 

28.30 

6.00 

15.00 

28.30 

6.00 

15.00 

39.60 

6.00 

15.00 

39.60 

6.00 

15.00 

39.60 

6.00 

15.00 

49.80 

6.00 

15.00 

49.80 

6.00 

15.00 

49.80 

6.00 

15.00 

49.8  0 

6.00 

15.00 

59.90 

6.00 

15.00 

59.90 

6.00 

15.00 

59.90 

6.00 

15.00 

59.90 

6.00 

15.00 

71.10 

6.00 

15.00 

71.10 

6.00 

15.00 

71.10 

6.00 

15.00 

71.10 

6.00 

15.00 

71.10 

6.00 

15.00 

71.10 

6.00 

15.00 

83.80 

6.00 

15.00 

83.80 

6.00 

15.00 

83.80 

6.00 

15.00 

83. eo 

6.00 

15.00 

83.80 

6.00 

15.00 

83.80 

6.00 

15.00 

7.70 

6.00 

15.00 

18.60 

6.00 

15.00 

28.30 

6.00 

15.00 

28.30 

6.00 

15.00 

28.30 

6.00 

15.00 

39.60 

6.00 

15.00 

39.60 

6.00 

15.00 

39.60 

6.00 

15.00 

49.80 

6.00 

15.00 

49.80 

6.00 

15.00 

49.80 

6.00 

15.00 

49.80 

6.00 

15.00 

59.90 

6.00 

15.00 

59.90 

6.00 

15.00 

59.90 

6.00 

15.00 

59.90 

6.00 

15.00 

71.10 

6.00 

15.00 

71.10 

6.00 

15.00 

71.10 

6.00 

15.00 

71.10 

6.00 

15.00 

71.10 

6.00 

15.00 

71.10 

6.Q0 

15.00 

83.80 

6.00 

15.00 

83.80 

6.00 

15.00 

83.80 

6.00 

15.00 

83.80 

6.00 

15.00 

83.80 

6.00 

15.00 

83.80 

SUM  CF  DIFFERENTIAL  DCSE  RATES  «= 


PHI 

DIFF.DCRARF 

90.00 

.00000241 

90.00 

.00000264 

30.00 

.00000420 

90.00 

.00000298 

150.00 

.00000223 

30.00 

.00000657 

90.00 

.00000359 

150.00 

.00000240 

22.50 

.00001149 

67.50 

.00000647 

112.50 

-.00000343 

157.50 

.00000264 

22.50 

.00002230 

67.50 

.00000964 

112.50 

.00000424 

157.50 

.00000316 

15.00 

.00005102 

45.00 

.00003554 

75.00 

.00001294 

105.00 

.00000654 

135.00 

.00000477 

165.00 

.00000416 

15.00 

.00015567 

45.00 

.00009739 

75.00 

.00002735 

105.00 

.00001219 

135.00 

.00000860 

165.00 

.00000743 

270.00 

.00000226 

270.00 

.00000227 

210.00 

.00000208 

270.00 

.00000236 

330.00 

.00000336 

210.00 

.00000222 

270.00 

.00000258 

330.00 

.00000435 

202.50 

.00000248 

247.50 

.00000266 

292.50 

.00000349 

337.50 

.00000671 

202.50 

.00000295 

247.50 

.00000318 

292.50 

.00000433 

337.50 

.00001013 

195.00 

.00000397 

225.00 

.00000404 

255.00 

.00000443 

285.00 

.00000553 

315.00 

.00000907 

345.00 

.00002291 

195.00 

.00000707 

225.00 

.00000720 

255.00 

.00000794 

285.00 

.00001009 

315.00 

.00001783 

345.00 

.00005561 

!ATES  « 

.00072733 
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APPENDIX  K 

Description  and  Explanation  of  thr.  IBM- 1620 
Computer  Program  Used  for  Calculating  the 
Total  Reflected  Dose  Rate  at  Point  (x,y)  on 
the  Ceiling  of  a  Blockhouse 


The  total  dose  rate  reflected  from  any  point  of  the  ceiling  is 

given  by  eq . (4S) , 

K    K    K  Km=„ 

max  max  max  max 

Dr(x,y)  =  {l.  2930I& -«i>D0/l6}][  a,][  aj^    ak(u1K-uaK)£  aj 

c=l  m=l  k=l  j=l 

X (0.19 17+0. 0095u    ,)exp(-Z   (E   )d/u    .  )(CK(6  >+C  ){  l+a'2   (E    )d  (40) 

oj  a     o  oj  s  a     o 

Xexp(t2   (E    )d/u    .Vu    ,}{u    .+u   }    . 
K       a     o  oj     oj;l   oj     r 

The  source  program  written  in  FORTRAN  II  language  is  listed  in  this 
appendix.   A  logic  diagram  for  this  program  is  also  shown. 

The  results  obtained  for  the  nine  points  of  interest  are  presented 
in  Table  19.  Each  of  these  results  required  43  minutes  of  computer 

Table  19.  Total  reflected  dose  rate  results. 


feet 


0.00 
0.00 
0.00 
3.00 
3.00 
3.00 
6.00 
6.00 
6.00 


y 

Reflected  Dose  Rate 

feet 

D 
0 

5.00 

0.0020992 

10.00 

0.0013809 

15.00 

0.0009131 

5.00 

0.0017215 

10.00 

0.0012473 

15.00 

0.0008616 

5.00 

0.0011606 

10.00 

0.0009931 

15.00 

0.0007418 

time  with  a  K    of  six.  Table  20  defines  the  various  alphanumeric 
max 

characters  utilized  in  this  computer  program. 
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Table  20.   Input  data  and  variables  required  for 
the  IBM- 1620  total  reflected  dose  rate 
computer  program. 


Symbol* 


Explanation 


XMAX  Half -width  of  Structure  Measured  Parallel  to  Aperture 

Plane,  X   (feet) 

YMAX  Total  Lengfh  of  Structure  Measured  Perpendicularly  from 

the  Aperture  Plane,  Y    (feet) 

KMAX  Degree  of  Gaussian  Quadrature  Utilized,  K 

CHRTNO  Christoffel  Numbers,  ak 

OLEGNP  Zeroes  of  the  Legendre  Polynomials,  x, 

IC  Fixed  Point  Emergent  Azimuthal  Angle  Integration  Variable 

PHI  Emergent  Azimuthal  Angle,  <J>  (radians) 

IM  Fixed  Point  Emergent  Polar  Angle  Integration  Variable 

COSTHE  Cosine  of  Emergent  Polar  Angle,  cos© 

IK  Fixed  Point  Incident  Azimuthal  Angle  Integration  Variable 

PHIO  Incident  Azimuthal  Angle,  <J>  (radians) 

IJ  Fixed  Point  Incident  Polar  Angle  Integration  Variable 

COSTHO  Cosine  of  Incident  Polar  Angle,  cos© 

DORARF  Total  Reflected  Dose  Rate  at  Ceiling  Position  (x,y)(D  ) 


♦Additional  utilized  alphanumeric  symbols  are  defined  in  Table  8  and 
Table  13. 
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LOGIC      DIAGRAM     FOR    THE    TOTAL    REFLECTED      DOSE 
RATE      AT     ANY      POINT     ON    A      BLOCKHOUSE     CEILING 


Slorf. 

Reod  in  program 

and  constants 


^et   I=INTMX| »JSetJ=   INTMYl 


SetIM  =  l^-Form     PHI  r* |Set  1C  =  l|-«- 


II  =  I^IXl 


Form    PHI1 
Form    PHI  2 


|Form    COSfHE] g-jSet     IKmI 


Form     PHIO 
Form     THETA  1 
Form      THETA2 


Set  1  J  =  i  | 


HSet   I J  =    IJTT} 


|Set  IK  =  IK*T| 


Form  COSTHO 

Form  PTHLGT 

Form  B1LDUP 

Form  COSTHS 

Form  P 

Form  COMPXS 
Form    ALPHA 


ISet    IM'IMnT-* 


-{Set  IC=  icTiV 
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REFLECTED  DOSE  RATE. 3/9/63  8Y  J.A.BARAN 
DIMENSION  X(lOl).  YI200).  CLEGNP(IO).  CHRTNC(IO) 
18  FORMAT  (813) 
22  FORMATIF11.8) 

20  FORMAT  ( F12.9.F13.10.  F6.3) 
700  F0RMATI4E18.10) 
715  FORMAT  (F28.2  .F21.2.F25.7) 
30  READ  20.   C.  CPRIME.  EO 
INPUT  ABOVE  IS   2  CARDS 
710  READ  700,         ACHD.BCHD.R.H.V.XMAX.  YMAX 
INPUT  ABOVE  IS   2  CARDS 

READ  18,      KMAX. NPTSX.  NPTSY,  INTMX,  INTMY.  IX.  IY 
INPUT  ABOVE  IS   1  CARD 
D016I=1.KMAX 
READ22.CHRTN0I I ) 
16  READ22.0LEGNPU) 

INPUT  ABOVE  IS  12  CARDS 
DO  1*  1=  INTMX.  NPTSX.  IX 

14  Xtl )=  1-1 

DO  15  1=  INTMY.  NPTSY.  IY 

15  Y<I)=  I 

THESE  LOOPS  CALCULATE  THE  X  AND  Y  CO-ORDINATES  OF  INTEREST 
DO  760  1=  INTMX.  NPTSX.  IX 

DO  720  J=  INTMY.  NPTSY.  IY 
THESE  LOOPS  REPEAT  THE  ENTIRE  CALCULATION  FOR  DIFFERENT  (X.Y) 
IF  (SENSE  SWITCH  1)  86.  87 

86  PAUSE 

87  PHI1=ATANF( (X( I )-R)/Y( J) )  +  3.1415927 
PHI2=ATANF( (XI  I )+R)/Y(J) )  +  3.1415927 
PHI1P2  =  PHI1  +  PHI2 

PHI2M1  =  PHI2  -  PHI1 

DORARF=0. 

DO  7  IC=1.KMAX 

THIS  LOOP  PERFORMS  THE  INTEGRATION  OVER  EMERGENT  AZIMUTHAL  AN6LES 

PHI  =  (OLEGNP(  10*3.1415927)  +  3.1415927 

GAMMA  =  0. 

DO  6  IM=1.KMAX 

THIS  LOOP  PERFORMS  THE  INTEGRATION  OVER  EMERGENT  POLAR  ANGLES 

COSTHE=(OLEGNP( IM 1/2.) +0.5 

SINTHE=SORTF( 1 ,-COSTHE*COSTHE ) 

BETA  =  0. 

DO  5  IK=1.KMAX 

THIS  LOOP  PERFORMS  THE  INTEGRATION  OVER  INCIDENT  AZIMUTHAL  ANGLES 

IF  (SENSE  SWITCH  1)  88.  89 

88  PAUSE 

89  ALPHA  ■  0. 

PHIO=  (PHI2Ml*CLEGNP(IK)/2.)  +  (PHI1P2/2.) 

THETA1  =  ATANF( Y( J)/ ( ( H+V ) »ABSF ( COSF (PHI  0-3.1415927)))) 

THETA2=ATANF(Y(J)/( ( H-V )*ABSF ( COSF ( PHIO-3. 1415927 ) ) ) 1 

CT1PT2  =  C0SF(THETA1)+C0SF(THETA2) 

CT2MT1  =  C0SF(THETA2)-CCSF(THETA1) 

DO  4  IJ=1,KMAX 
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THIS  LOOP  PERFORMS  THE  INTEGRATION  OVER  INCIDENT  POLAR  ANGLES 
COSTHO=( (CT2MT1        )*OLEGNP( IJ ) /2. ) + (CT1PT2*0.5 ) 
SINTHO  =  SQRTFI l.-CCSTHO*COSTHC) 
PTHLGT=0.01825/COSTHC 

6ILDUP=1.+ACHD*PTHL6T*EXPF(BCHD*PTHLGT) 

COSTHS  =  <SINTHO*COSF(PHI-PHIO+3. 1415927 )*S INTHE ) - ( CCSTHO»CCSTHE ) 
P=l./(l.+(EO*( 1. -COSTHS 1/0. 511 ) ) 

COMPXS=(3.970  562     )* ( P**2 ) *  I  1 .  +  < P**2 ) -P* ( 1 .- ( COSTHS*»2 ) )) 
ALPHA1  =  (0. 1917+0. 0095*COSTHO ) * ( C*COMPXS+CPR IME ) *CHRTNC ( IJ) 
1*  BILDUP  /  (EXPFI    PTHLGT      )*(COSTH0  +  COSTHE ) ) 

4  ALPHA  =  ALPHA  +  ALPHA1 
BETA0=-CT2MT1*  ALPHA  *  CHRTNOIIK) 

5  BETA=  BETAO+BETA 
GAMMA1  =  BETA*CHRTNO( IM) 

6  GAMMA=GAMMA  +  GAMMA1 

7  DORARF=DORARF+ (GAMMA  *  PHI2M1  *  CHRTNOCC)  *  8.08125E-2) 

THIS  ORDER  CALCULATES  THE  REFLECTED  DOSE  RATE  AT  A  CEILING  POINT 
720  PUNCH  715. X( I ) »Y( J) .DORARF 
760  CONTINUE 

GO  TO  30 

END 


INPUT  DATA 
.064501061  0.0089294690  1.252 
89.562-2  62.518-3  1.85+0  2.88+0 

1.08+0  10.0+0  20.0+0 

6  7  15  1  5  3  5 
.46791393 
.23861919 
.36076157 
.66120939 
.17132449 
.93246951 
.17132449 

-  .93246951 
.36076157 

-  .66120939 
.46791393 

-  .23861919 
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APPENDIX  L 

Description  and  Explanation  of  the  IBM-1620 
Computer  Program  Used  for  Calculating  the  Total 
Dose  Rate  at  Position  (xx.yy.zz)  in  a  Blockhouse 


The  dose  rate  from  ceiling  scattered  radiation  at  any  position  in 

a  blockhouse  is  given  by  eq.  (54), 

K    K        K 

max  max      max 


D(xx 
K 


,yy,zz)  =  [l.293«lv)-<l»1)XmaxYmaxDo/16n]  [  «c  £  Cam/p2)[  ^(»lk- 

v  c=l  nc=l      k=l 

max 
u,k)£  a  (0. 1917+0.0095^)  {l+a'S^d  exP(hSa(Eo)d/u.oj$exp(-ZaCEo> 

J=l 

xd/u  )lCK(e8)+C']{l+a,(Ea<E1)(p-t/cosG)-2cCE')t/co8e)     (54) 

Xexp(WS  (E')(p-t/cos©)-Z/.(E')t/coBe))]exp-{Za(E1)(p-t/cose) 
a  c 

-S  (E')t/coee](uo]+cose}   . 

The  FORTRAN  II  source  program  vhich  solves  eq.(54)  is  listed  in  this 
appendix  along  with  the  pertinent  logic  diagram. 

Approximately  21  minutes  of  computer  time  was  required  to  obtain 
each  point  with  a  Gaussian  quadrature  of  six  for  the  y  integration  and 
three  for  the  x,  0  and  $  integrations.  These  orders  of  integration 
were  of  sufficient  accuracy  for  the  x  -  0  centerline  positions.  The 
computer  required  43  minutes  to  calculate  each  point  when  off  the  center- 
line  where  Gaussian  quadrature  of  order  six  was  also  required  for  the  x 
integration.  Total  dose  rates  were  claculated  for  the  detector  positions 
three  feet  above  the  basement  and  first  floors  at  the  (x,y)  co-ordinates*. 
(0.1,  (0,6),  (0,10),  (0,14),  (0.19),  (2,10),  (5,10)  and  (10,10).  These 
dose  rates  are  listed  in  Table  23. 
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The  alphanumeric  characters  utilized  in  this  program  are  defined 
in  Table  22. 


Table  22. 


Input  data  and  variables  required  for  the 
IBM- 1620  total  dose  rate  computer  program. 


Symbol* 


Explanation 


XX 
YY 

zz 

XINTVL 
YINTVL 
ZINTVL 
FL0C2G 
TFLOOR 
MAXENG 
INTRPT 

IABSC 

ANCTHE 

ENER30 

ENER60 

ENER90 

THENER 

EABSCO 

EABAIR 

CHDENG 

AC  HOD 

BCHOD 

XSYMTY 

XXSYMT 

IC 

IM 

RHO 


Detector  Rectangular  Co-ordinate   Parallel   to   Aperture 

Plane,   xx   (feet) 

Detector  Rectangular  Co-ordinate   Perpendicular   to 

Aperture   Plane,   yy   (feet) 

Perpendicular  Distance  Measured   Positive  Downwards   from 

Ceiling,    zz   (feet) 

X  Co-ordinate  Distance  Between  Mesh  Points  (feet) 

Y  Co-ordinate  Distance  Between  Mesh  Points  (feet) 

Z  Co-ordinate  Distance  Between  Mesh  Points  (feet) 

Mass  Thickness  of  Blockhouse  Floor  (g./cnr.) 

Thickness  of  Blockhouse  Floor,  t  (feet) 

Number  of  Emergent  Energy  Intervals 

Number  of  Interpolation  Points  for  the  Average 

Reflected  Energy  Determinations 

Number  of  Interpolation  Points  for  Determination  of 

the  Total  Mass  Absorption  Coefficient 

The  Three  Incident  Polar  Angles,  6 =  30  ,  60  and 

90°  for  Which  the  Average  Reflected  Energy  is  Tabulated 

Tabulated  Values  for  the  Average  Reflected  Energy  for 

a  30  Incident  Polar  Angle 

Tabulated  Values  for  the  Average  Reflected  Energy  for 

a  60  Incident  Polar  Angle 

Tabulated  Vclues  for  the  Average  Reflected  Energy  for 

a  90  Incident  Polar  Angle 

Emergent  5  Polar  Angle  Intervals  for  the  Average 

Reflected  Energies 

Total  Linear  Macroscopic  Gamma  Ray  Absorption  Coefficients 

for  Concrete;  Z  (cm"  ) 

Total  Linear  Macroscopic  Gamma  Ray  Absorption  Coefficients 

for  Air  at  STP,  Z  (cm"1) 

Tabulated  Build-up  Parameter  Energies  (MeV) 

Tabulated  Build-up  Parameters,  a' 

Tabulated  Build-up  Parameters, b 

Has  Value  of  One  When  XX  =  0  and  a  Value  of  Two  Otherwise 

Has  Value  of  Zero  When  XX  -  0  and  a  Value  of  X    Otherwls 

Fixed  Point  x  Co-ordinate  Integration  Variable 

Fixed  Point  y  Co-ordinate  Integration  Variable 

Distance  Between  Position  (x,y)  on  the  Ceiling  and  the 

Position  (xx,yy,zz)  of  the  Detector,  p  (feet) 


Table    22   cont. 
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Symbol* 


Explanation 


PHI 
THETA 


INTERP 

ATTENU 


PTHLEN 
TODORA 


Azimuthal   Angle   Between   Position   (x,y)   on   the  Ceiling 

and    the   Position   (xx.yy.zz)   of   the  Detector,  0  (radians) 

Polar  Angle   Between  Position   (x,y)   on  the  Ceiling  and   the 

Position   (xx.yy.zz)   of   the  Detector,  0  (radians) 

Interpolation  Subroutine  Discussed   in  Appendix  C 

Total   Attenuation  of  Gamma  Ray  Between  Ceiling  Position 

and  Detector 

Mean  Free   Path  of  Gamma  Ray  from  Ceiling  Position  to 

Detector 

Total  Dose  Rate,  D(xx,yy,zz)  (D  ) 


*Additional  utilized  alphanumeric  symbols  are  defined  in  Tables  8,  13  and 
20. 
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LOGIC       DIAGRAM     FOR    THE    TOTAL     DOSE    RATE 
AT     ANY     POINT     IN     A      BLOCKHOUSE 


Limits  on 
x  integration 
from  0  to 
x   max. 


Limits  on 
x  integration 
from    -x  max. 
to    x  max. 


Set  IC  =  lj 


'Interpolate     among 
©   to   obtain   average 
reflected   energy    in 
the   SOo^Cand  90" 

,  lists 


I 


Set  IC  =  lQl1 


Form  X 


Form  Y 
Form  p 
Form  <£,® 


-|Set  IM=ll 
-jSet  IM=IM*T1 


Interpolate  to  obtain 
DESENE,  TOABCO, 
TOABAR,  ACHODO, 
and     BCHODO. 


Form  ATTENU 

Form  BUILDU 

Form  PTHLGT 

Form  BILDUP 


[Form  BETA 
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TOTAL  DCSE  RATE,  D(XX.YY.ZZ) —  A/3/63  BY  J. A.  BARAN  „,„„ 

DIMENSION  OLEGNP(IO),  CHRTNO(IO),  ENER30I20).  ENER60I20I. 

1ENER90I20),  THENERI20),  ANCTHE ( 20 ) .EN ( 20 ) , EABSCC < 20 ) .  ABSCENI20). 
1CHOENG(20),ACHCD(20) ,BCHOD(20>.  EABAIRI20),  CLEGNLI 10 ) .CHRTNL ( 10 ) 
10  FORMAT  (F6.3.F8.6.6F10.6) 

18  FORMAT  (2013) 

19  FORMAT  (  E10.3) 

20  FORMAT  ( F 12 .9. F13 . 10 ) 

21  FORMAT  (  F12.8) 

22  F0RMATIF11.8) 
27  FORMAT!   F7.4) 

700  FORMATI4E18.10)  „.„ 

714  FORMAT  (71H  X  Y  PAR 
1TIAL  DOSE  RATES    ) 

715  FORMAT  (F22.6.  F19.6.  F24.8)  ..       ,-.», 

716  FORMAT  (/,  62H  XX        YY  ZZ       TOTAL 
1D0SE  RATE   ./.F22.6.  2F11.6.  F14.8)  ,,.,.,,. 

30  READ  10,  EO.  EACAEO.XX  .  YY.  ZZ .  XINTVL.  YINTVL.  ZINTVL 

INPUT  ABOVE  IS   1  CARD 
READ  20,   C.  CPRIME 

INPUT  ABOVE  IS   1  CARD  „, . 

710  READ  700,  ACHD.BCHD.        R.H.V.   FL0C2G.  XMAX.  YMAX,  TFLOOR. 
1YDEL,  YDD 
INPUT  ABOVE  IS   3  CARDS 

READ  18,  KMAX,  MAXENG,  INTRPT.  IABSC,  LMAX 
INPUT  ABOVE  IS   1  CARD 
DO  52  1=1,3 

52  READ  21,  ANCTHEI 1) 
INPUT  ABOVE  IS   3  CARDS 
DO  53  1=1, MAXENG 

53  READ  19,  ENER30( I ) 
INPUT  ABOVE  IS  18  CARDS 
DO  54  1=1, MAXENG 

54  READ  19,  ENER601 I ) 
INPUT  ABOVE  IS  18  CARDS 
DO  55  1=1, MAXENG 

55  READ  19,  ENER901 I) 
INPUT  ABOVE  IS  18  CARDS 
DO  56  1=1, MAXENG 

56  READ  21,  THENERI I ) 
INPUT  ABOVE  IS  18  CARDS 
DO  57  1=1.10 

57  READ  27,  EABSCO(I) 
INPUT  ABOVE  IS  10  CARDS 
DO  63  1=1,10 

63  W^OVE^io'cARDS 
DO  58  1=1,10 

58  READ  27,  ABSCENI I ) 
INPUT  ABOVE  IS  10  CARDS 
DO  60  1=1,3 

60  READ  27.  CHDENGI I ) 
INPUf  A§iV|  IS   3  CARDS 

61  READ  27.  ACHODI I ) 
INPUT  ABOVE  IS   3  CARDS 
DO  62  1=1.3 

62  READ  27.  BCHOD( I ) 
INPUT  ABOVE  IS   3  CARDS 
D016I=1.KMAX 
READ22.CHRTN0I I ) 

16  READ22.0LEGNPI I ) 

INPUT    ABOVE    IS      6    CARDS 

D017I=1.LMAX 

READ22.CHRTNLU) 

17  READ22.0LEGNLI I ) 

INPUT  ABOVE  IS   6  CARDS 
26  IF  (SENSE  SWITCH  2)  24,25 

24  PUNCH  714 

25  TODORA  =  0. 
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XSYMTY  =  1. 
XXSYM  =  0. 
IF  (XX)  67,68,67 
68  XSYMTY  =  2. 

C      THESE  ORDERS  CHANGE  X  LIMITS  OF  INTEGRATION  TO  1/2  THE  WIDTH 
C      OF  THE  BLOCKHOUSE  IF  THE  DETECTOR  IS  ON  THE  X=0  CENTERLINE 
67  DO  7  IC=1,LMAX 

X  =  (XMAX  *  OLEGNL(IC)  /XSYMTY)  +  I XXSYM/XSYMTY ) 

GAMMA  =0. 

DO  6  IM=1,LMAX 

Y  =  <YMAX  *  OLEGNL(IM)  *  0.5)  +  ( YMAX  *  0.5) 
C      THESE  LOOPS  CALCULATE  THE  X  AND  Y  CO-ORDINATES  OF  INTEREST 

RHO  =  SORTFt ( (XX-X)*(XX-X) )  +  ( ( YY-Y ) * ( YY-Y ) )  +  (ZZ*ZZ)) 

IF  (Y   -  YY   )  76,77,76 

77  PHI  =  1.5707963 
GO  TO  79 

76  PHI  =(ATANF  ((X    -XXI  /  (Y  -YY   )))   +  3.1415927 
IF(Y-YY)  78,78,79 

78  PHI  =  3.1415927  +  PHI 

79  COSPHI  =  COSFIPHI ) 
COSTHE  ■  ZZ/RHO 

SINTHE  =  SORTF( l.-C0STHE*»2) 

THETA  *    ATANF  ( SI NTHE/COSTHE ) 

CALL  INTERP  (MAXENG,  THENER,  ENER30,  INTRPT,  THETA  •  E30 ) 
C      THIS  ORDER  INTERPOLATES  TO  OBTAIN  THE  AVERAGE  REFLECTED  ENERGY 
C      FOR  A  30  DEGREE  INCIDENT  POLAR  ANGLE  AND  THE  EMERGENT  POLAR 
C      ANGLE,  THETA 

IF  (SENSE  SWITCH  1)  112,113 

112  PAUSE 

113  ENID  =  E30 

CALL  INTERP  (  MAXENG,  THENER,  ENER60,  INTRPT,  THETA  ,  E60 ) 

EN(2)  =  E60 

CALL  INTERP  (  MAXENG,  THENER,  ENER90.  INTRPT,  THETA  ,  E90 ) 

ENI3)  =  E90 

IF  (SENSE  SWITCH  1)  86,  87 

86  PAUSE 

87  PHI1=ATANF( (X  -R)/Y  )  +  3.1415927 
PHI2=ATANF( (X  +R1/Y  )  +  3.1415927 
PHI1P2  ■  PHI1  +  PHI2 

PHI2M1  =  PHI2  -  PHI1 
BETA  =  0. 

C      THIS  LOOP'PERFORMS  THE  INTEGRATION  OVER  INCIDENT  AZIMUTHAL  ANGLES 
IF  (SENSE  SWITCH  1)  88,  89 

88  PAUSE 

89  ALPHA  =  0. 

PHIO=  <PHI2M1*0LEGNP( IK1/2.)  +  (PHI1P2/2.) 
THETA1=ATANF(Y    /( ( H+V) *ABSF ( COSF ( PHI C-3 . 1415927 ) ) ) ) 
THETA2  =  ATANF(Y    /(  ( H-V)*ABSF ( COSF < PHI  0-3. 1415927 > >  )) 
CT1PT2  =  COSF(THETA1)+COSF(THETA2) 
CT2MT1  =  C0SF(THETA2)-C0SF(THETA1) 

C      THIS  LOOP'PERFORMS  THE  INTEGRATION  OVER  INCIDENT  POLAR  ANGLES 

COSTHO=( (CT2MT1        )*OLEGNP( IJ1/2. )+ < CT 1PT2»0.5 ) 

SINTHO  ■  SQRTF1 l.-COSTHO*COSTHO ) 

THETAO  =  ATANF  (S INTHO/COSTHO ) 

CALL  INTERP  (3,  ANCTHE,  EN,  2,  THETAO,  DESENE) 
C      THIS  ORDER  INTERPOLATES  TO  OBTAIN  THE  AVERAGE  REFLECTED  ENERGY 

CALL  INTERP  (10,  ABSCEN,  EABSCO,  IABSC,  DESENE,  TCABCC) 
C      THIS  ORDER  INTERPOLATES  TO  OBTAIN  THE  CONCRETE  ATTENUATION  COEF. 

CALL  INTERP  (10,  ABSCEN,  EABAIR,  IABSC,  DESENE,  TCABAR ) 
C      THIS  ORDER  INTERPOLATES  TO  OBTAIN  THE  AIR  ATTENUATION  COEFFICIENT 

CALL  INTERPI3,  CHDENG,  ACHOD,  2,  DESENE,  ACHODO) 
C      THIS  ORDER  INTERPOLATES  TO  OBTAIN  THE  BUILD-UP  CONSTANT , ACHOD 

CALL  INTERP  (3,  CHDENG,  BCHOD,  2,  DESENE,  BCHODO ) 
C      THIS  ORDER  INTERPOLATES  TO  OBTAIN  THE  BUILD-UP  CONSTANT , BCHOD 

ATTENU  =  1. 

BUILDU  =  1. 

IF  (8.5-ZZ)  33,33.28 
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33  PTHLEN  =  TCABCC  *  FLCC2G  /  CCSTHE 

BUILDU  ■  1.  +  ACHCDC  *  PTHLEN  *  EXPF  ( BCHCDC*PTHLEN > 

PTHLEN  "  TCABAR  * < RHC- ( TFLCCR/CCSTHE ) )  *  30.48  *  0.001293 
6"  T^  29 

28  PTHLEN  «  TCABAR  *  RHC  *  30.48  *  0.001293 

29  BUILDU  =  BUILDU  *  11.  +  ACHCDC  *  PTHLEN  *  EXPF ( BCHCDC*PTHLEN ) ) 
ATTENU  =  ATTENU  *  EXPF  (PTHLEN) 

PTHLGT=0.0182  5/CCSTHC 

ALPHAl  =  (0.1917+0. 0095»CCSTHC ) * ( C*CCMPXS+CPR IME ) *CHRTNC( I  J > 
1*  BILDUP*BUI LOU  /( EXPF (PTHLGT)*ATTENU*( COSTHC+C0STHE)) 

4  ALPHA  ■  ALPHA  +  ALPHAl 

5  BETA=  BETA  -  CT2MT1  *  ALPHA  *  CHRTNC(IK) 

GAMMA1  =  BETA»CHRTNL(IM)  *PHI2M1  *  2.5723417E-2  *  XMAX  *  YMAX 
1  *  CHRTNL1 IC)  /  (RHC*RHC) 
IF  (SENSE  SWITCH  2)  720.6 
720  PUNCH  715.X    »Y    .GAMMA1 

6  GAMMA=GAMMA  +  GAMMA1 

7  TCDCRA  =  TCDCRA  +  GAMMA 
PUNCH  716.  XX. YY.ZZ. TCDCRA 
IF  1ZZ-ZINTVL)  31.31.73 

73  ZZ  =  ZZ  -  ZINTVL 
GC  TC  26 

31  ZZ=  ZZ+ZINTVL 
IF1SENSE  SWITCH  3)  32.34 

32  XX=  XX+XINTVL 
1F(XMAX-XX)30,26.26 

34  YY  ■  YY  +  YINTVL 

IF(YMAX-YY)  30.26.26 
117  END 


145 


INPUT  DATA 
252   0.0268 

2.0 

10.0   5.166667 

5. 

064501061 
89. 

0.0089294690 

562-2 

62 

.518-3 

1.85+0 

] 

..08  +  0 

26. 

10.0+0 

.5+0 

18   2   2 

6 

.523599 

1.047198 

1.570796 

.143+0 

.161+0 

.143+0 

.148+0 

.144+0 

.150+0 

.149+0 

.151+0 

.159+0 

.165+0 

.171+0 

.156+0 

.162+0 
.184+0 

Continuation 

of  Input  Data 

.190+0 

.185+0 

.224+0 

.043633 

.243+0 
.197+0 

.130900 
.218166 

.  1 
.15 

.134+0 

.305433 

.2 

.168+0 

.392699 

.3 

.165+0 

.479966 

.4 

.162+0 

.567232 

.5 

.177  +  0 

.654499 

.6 

.175+0 

.741765 

.8 

.180+0 

.829032 

1.0 

.175+0 

.916298 

1.25 

.192+0 

1.003565 

.5 

.206+0 

1.090831 

1.0 

.207+0 

1.178097 

2.0 

.249+0 

1.265364 

1.288 

.280+0 

1.352630 

.988 

.269+0 

1.439897 

.742 

.296+0 

1.527163 

.oUi 

.322+0 

.169 

.401+0 

.139 

.041 

.222+0 

.124 

.55555556 

.196+0 

,107 
.0954 

-  .77459667 

.208+0 

.88888889 

.223+0 

.0870 

.0 

.230+0 

.0804 

.55555556 

.241+5 
.255+0 

.0706 

.77459667 

.0635 

.17132449 

.274+0 

.0567 

-  .93246951 

.277+0 

.151 

.36076157 

.292+0 

.134 

-  .66120939 

.335+0 

.123 
.106 

.46791393 

.360+0 

-  .23861919 

■448+0 

.0953 

.46791393 

.473+0 
.523+0 

.0868 
.0804 

.23861919 

.36076157 

.570+0 

.0706 

.66120939 

.602+0 

.0655 

.17132449 

.640+0 

.0567 

.93246951 

2.88  +  Cl 
20.0+5 
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TABLE  23. 
TOTAL  DOSE  RATE  RESULTS 
5  PER  CENT  APERTURE 


X 

Y 

PARTIAL  DCSE  RATES 

2.113248 

4.226498 

.00033801 

2.113248 

15.773502 

.00003821 

7.886751 

4.226498 

.00003529 

7.886751 

15.773502 

.00001960 

XX 

YY 

11 

TOTAL  DOSE  RATE 

.000000 

10.000000    5.166667 

.00043112 

X 

Y 

PARTIAL  DOSE  RATES 

.694318 

1.388637 

.00003106 

.694318 

6.600190 

.00008251 

.694318 

13.399810 

.00001651 

.694318 

18.611363 

.00000264 

3.300094 

1.388637 

.00002212 

3.300094 

6.600190 

.00008601 

3.300094 

13.399810 

.00002489 

3.300094 

18.611363 

.00000449 

6.699905 

1.388637 

.00000441 

6.699905 

6.600190 

.00002755 

6.699905 

13.399810 

.00001438 

6.699905 

18.611363 

.00000338 

9.305681 

1.388637 

.00000087 

9.305681 

6.600190 

.00000639 

9.305681 

13.399810 

.00000469 

9.305681 

18.611363 

.00000134 

XX 

YY 

ZZ 

TOTAL  DOSE  RATE 

.000000 

10.000000    5.166667 

.00033331 

X 

Y 

PARTIAL  DOSE  RATES 

.469100 

.938202 

.00001006 

.469100 

4.615307 

.00005370 

.469100 

10.000000 

.00002386 

.469100 

15.384693 

.00000506 

.469100 

19.061798 

.00000112 

2.307653 

.938202 

.00001198 

2.307653 

4.615307 

.00007253 

2.307653 

10.000000 

.00004370 

2.307653 

15.384693 

.00000943 

2.307653 

19.061798 

.00000216 

5.000000 

.938202 

.00000372 

5.000000 

4.615307 

.00003068 

5.000000 

10.000000 

.00003951 

5.000000 

15.384693 

.00000853 

5.000000 

19.061798 

.00000218 

7.692346 

.938202 

.00000097 

7.692346 

4.615307 

.00000921 

7.692346 

10.000000 

.00002488 

7.692346 

15.384693 

.00000488 

7.692346 

19.061798 

.00000142 

9.530899 

.938202 

.00000024 

9.530899 

4.615307 

.00000243 

9.530899 

10.000000 

.00001027 

9.530899 

15.384693 

.00000180 

9.530899 

19.061798 

.00000057 

XX 

10.00C 

ZZ 

TOTAL  DOSE  RATE 

.000000 

)000    5.166667 

.00037501 
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table  23  ccnt. 
;tal  dgse  rate  results 
5  per  cent  aperture 


X 

Y 

PARTIAL  DOSE  RATES 

.337652 

.675305 

.00000377 

.337652 

3.387907 

.00002961 

.337652 

7.613809 

.00002461 

.337652 

12.386191 

.00000767 

.337652 

16.612093 

.00000207 

.337652 

19.324695 

.00000055 

1.693953 

.675305 

.00000594 

1.693953 

3.387907 

.00004826 

1.693953 

7.613809 

.00004430 

1.693953 

12.386191 

.00001500 

1.693953 

16.612093 

.00000421 

1.693953 

19.324695 

.00000114 

3.806904 

.675305 

.00000283 

3.806904 

3.387907 

.00002726 

3.806904 

7.613809 

.00003398 

3.806904 

12.386191 

.00001480 

3.806904 

16.612093 

.00000474 

3.806904 

19.324695 

.00000135 

6.193095 

.675305 

.00000090 

6.193095 

3.387907 

.00000968 

6.193095 

7.613809 

.00001629 

6.193095 

12.386191 

.00000952 

6.193095 

16.612093 

.00000366 

6.193095 

19,324695 

.00000112 

8.306046 

.675305 

.00000029 

8.306046 

3.387907 

.00000329 

8.306046 

7.613809 

.00000657 

8.306046 

12.386191 

.00000475 

8.306046 

16.612093 

.00000213 

8.306046 

19.324695 

.00000070 

9.662347 

.675305 

.00000008 

9.662347 

3.387907 

.00000097 

9.662347 

7.613809 

.00000210 

9.662347 

12.386191 

,00000170 

9.662347 

16.612093 

.00000083 

9.662347 

19.324695 

.00000028 

XX 

YY          ZZ 

TOTAL  DOSE  RATE 

.000000 

10.000000    5.166667 

.00033712 
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TABLE  23  CCNT. 

TOTAL  DOSE  RATE  RESULTS 

5  PER  CENT  APERTURE 


X 

Y 

PARTIAL  DOSE  RATES 

1.127016 

.675305 

.00002439 

1.127016 

3.387907 

.00007680 

1.127016 

7.613809 

.00002771 

1.127016 

12.386191 

.00000816 

1.127016 

16.612093 

.00000276 

1.127016 

19.324695 

.00000084 

5.000000 

.675305 

.00000522 

5.000000 

3.387907 

.00003316 

5.000000 

7.613809 

.00002492 

5.000000 

12.386191 

.00000995 

5.000000 

16.612093 

.00000376 

5.000000 

19.324695 

.00000119 

8.872983 

.675305 

.00000052 

8.872983 

3.387907 

.00000450 

8.872983 

7.613809 

.00000624 

8.872983 

12.386191 

.00000374 

8.872983 

16.612093 

.00000170 

8.872983 

19.324695 

.00000058 

XX 

YY          H 

TOTAL  DOSE  RATE 

.000000 

1.000000    5.166667 

.00023623 

X 

Y 

PARTIAL  DOSE  RATES 

1.127016 

.675305 

.00001667 

1.127016 

3.387907 

.00009828 

1.127016 

7.613809 

.00005336 

1.127016 

12.386191 

.00001427 

1.127016 

16.612093 

.00000427 

1.127016 

19.324695 

.00000123 

5.000000 

.675305 

.00000412 

5.000000 

3.387907 

.00003658 

5.000000 

7.613809 

.00003860 

5.000000 

12.386191 

.00001578 

5.000000 

16.612093 

.00000556 

5.000000 

19.324695 

.00000169 

8.872983 

.675305 

.00000046 

8.872983 

3.387907 

.00000468 

8.872983 

7.613809 

.00000802 

8.872983 

12.386191 

.00000520 

8.872983 

16.612093 

.00000233 

8.872983 

19.324695 

.00000078 

XX 

YY          ZZ 

TOTAL  DOSE  RATE 

.000000 

6.000000    5.166667 

.00031195 
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table  23  ccnt. 

;tal  dcse  rate  results 

5  per  cent  aperture 


X 
1.127016 

Y 
.675305 

1.127016 

3.387907 

1.127016 

7.613809 

1.127016 

12.386191 

1.127016 

16.612093 

1.127016 

19.324695 

5.000000 

.675305 

5.000000 

3.387907 

5.000000 

7.613809 

5.000000 

12.386191 

5.000000 

16.612093 

5.000000 

19.324695 

8.872983 

.675305 

8.872983 

3.387907 

8.872983 

7.613809 

8.872983 

12.386191 

8.872983 

16.612093 

8.872983 

19.324695 

XX 

YY          ZZ 

.000000 

10.000000    5.166667 

X 

Y 

1.127016 

.675305 

1.127016 

3.387907 

1.127016 

7.613809 

1.127016 

12.386191 

1.127016 

16.612093 

1.127016 

19.324695 

5.000000 

.675305 

5.000000 

3.387907 

5.000000 

7.613809 

5.000000 

12.386191 

5.000000 

16.612093 

5.000000 

19.324695 

8.872983 

.675305 

8.872983 

3.387907 

8.872983 

7.613809 

8.872983 

12.386191 

8.872983 

16.612093 

8.872983 

19.324695 

XX 

YY          ZZ 

.000000 

14.000000    5.166667 

PARTIAL  DCSE  RATES 
.00001066 
.00008596 
.00007457 
.00002410 
.00000663 
.00000179 
.00000296 
.00003058 
.00004494 
.00002281 
.00000800 
.00000235 
.00000037 
.00000414 
.00000856 
.00000651 
.00000303 
.00000101 


TOTAL  DOSE  RATE 
.00033905 


PARTIAL  DCSE  RATES 
.00000715 
.00007065 
.00008982 
.00003795 
.00001111 
.00000284 
.00000214 
.00002406 
.00004467 
.00002944 
.00001164 
.00000342 
.00000029 
.00000344 
.00000811 
.00000740 
.00000384 
.00000131 


TOTAL  DOSE  RATE 
.00035936 
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TABLE  23  CCNT. 

TOTAL  DOSE  RATE  RESULTS 

5  PER  CENT  APERTURE 


X 

Y 

PARTIAL  DCSE  RATES 

1.127016 

.675305 

.00000472 

a. 127016 

3.387907 

.00005427 

1.127016 

7.613809 

.00009159 

1.127016 

12.386191 

.00005961 

1.127016 

16.612093 

.00002060 

1.127016 

19.324695 

.00000544 

5.000000 

.675305 

.00000149 

5.000000 

3.387907 

.00001800 

5.000000 

7.613809 

.00004089 

5.000000 

12.386191 

.00003503 

5.000000 

16.612093 

.00001666 

5.000000 

19.324695 

.00000532 

8.872983 

.675305 

.00000022 

8.872983 

3.387907 

.00000268 

8.872983 

7.613809 

.00000704 

8.872983 

12.386191 

.00000761 

8.872983 

16.612093 

.00000463 

8.872983 

19.324695 

.00000172 

XX 

YY          ZZ 

TOTAL  DCSE  RATE 

.000000 

19.000000    5.166667 

.00037759 
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TABLE    23    CONT. 

TOTAL  DCSE  RATE  RESULTS 

5  PER  CENT  APERTURE 


X 

Y 

PARTIAL  DOSE  RATES 

9.324695 

.675305 

,00000008 

9.324695 

3.387907 

.00000091 

9,324695 

7.613809 

.00000187 

9.324695 

12.386191 

.00000151 

9.324695 

16.612093 

,00000076 

■9.324695 

19.324695 

.00000026 

6.612093 

.675305 

.00000049 

6.612093 

3.387907 

.00000510 

6.612093 

7.613809 

.00000861 

6.612093 

12.386191 

.00000549 

6.612093 

16.612093 

.00000233 

6.612093 

19.324695 

.00000075 

■2.386191 

.675305 

,00000512 

2.386191 

3,387907 

,00004011 

2.386191 

7.613809 

.00003878 

2.386191 

12.386191 

.00001528 

•2.386191 

16.612093 

.00000483 

■2.386191 

19.324695 

.00000137 

2.386191 

.675305 

.00000637 

2.386191 

3.387907 

.00005859 

2.386191 

7.613809 

.00005947 

2.386191 

12.386191 

.00001998 

2.386191 

16.612093 

.00000552 

2.386191 

19.324695 

.00000149 

6.612093 

.675305 

.00000068 

6.612093 

3.387907 

.00000782 

6.612093 

7.613809 

.00001439 

6.612093 

12.386191 

.00000834 

6.612093 

16.612093 

.00000305 

6.612093 

19.324695 

.00000091 

9.324695 

.675305 

.00000011 

9.324695 

3.387907 

.00000133 

9.324695 

7.613809 

.00000292 

9.324695 

12.386191 

.00000223 

9.324695 

16.612093 

.00000101 

9.324695 

19.324695 

.00000033 

XX 

YY          IZ 

TOTAL  DOSE  RATE 

2.000000 

10.000000    5.166667 

.00032834 
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TABLE  23  CCNT. 

TOTAL  DCSE  RATE  RESULTS 

5  PER  CENT  APERTURE 


X 

Y 

PARTIAL  DCSE  RATES 

9.324695 

.675305 

.00000006 

9.324695 

3.387907 

.00000070 

9.324695 

7.613809 

.00000142 

9.324695 

12.386191 

.00000117 

9.324695 

16.612093 

.00000062 

■9.324695 

19.324695 

.00000022 

6.612093 

.675305 

.00000038 

6.612093 

3.387907 

.00000381 

■6.612093 

7.613809 

.00000621 

•6.612093 

12.386191 

.00000414 

■6.612093 

16.612093 

.00000190 

•6.612093 

19.324695 

.00000063 

■2.386191 

.675305 

.00000408 

•2.386191 

3.387907 

.00002862 

•2.386191 

7.613809 

.00002627 

•2.386191 

12.386191 

.00001137 

■2.386191 

16.612093 

.00000403 

•2.386191 

19.324695 

.00000120 

2.386191 

.675305 

.00000682 

2.386191 

3.387907 

.00006687 

2.386191 

7.613809 

.00006053 

2.386191 

12.386191 

.00001890 

2.386191 

16.612093 

.00000535 

2.386191 

19.324695 

.00000146 

6.612093 

.675305 

.00000084 

6.612093 

3.387907 

.00001085 

6.612093 

7.613809 

.00002161 

6.612093 

12.386191 

.00001098 

6.612093 

16.612093 

.00000351 

6.612093 

19.324695 

.00000100 

9.324695 

.675305 

.00000014 

9.324695 

3.367907 

.00000181 

9.324695 

7.613809 

.00000432 

9.324695 

12.386191 

.00000309 

9.324695 

16.612093 

.00000123 

9.324695 

19.324695 

.00000038 

XX 

YY         ZZ 

TOTAL  DOSE  RATE 

5.000000 

10.000000    5.166667 

.00031671 
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TABLE  23  CCNT. 

TOTAL  DOSE  RATE  RESULTS 

5  PER  CENT  APERTURE 


X 

Y 

PARTIAL  DCSE  RATES 

-9.324695 

.675305 

.00000004 

-9.324695 

3.387907 

.00000048 

-9.324695 

7.613809 

.00000096 

-9.324695 

12.386191 

.00000082 

-9.324695 

16.612093 

.00000046 

-9.324695 

19.324695 

.00000017 

-6.612093 

.675305 

.00000026 

-6.612093 

3.387907 

.00000249 

-6.612093 

7.613809 

.00000396 

-6.612093 

12.386191 

.00000278 

-6.612093 

16.612093 

.00000138 

-6.612093 

19.324695 

.00000048 

-2.386191 

.675305 

.00000270 

-2.386191 

3.387907 

.00001690 

-2.386191 

7.613809 

.00001495 

-2.386191 

12.386191 

.00000719 

-2.386191 

16.612093 

.00000291 

-2.386191 

19.324695 

.00000093 

2.386191 

.675305 

.00000649 

2.386191 

3.387907 

.00005847 

2.386191 

7.613809 

.00003920 

2.386191 

12.386191 

.00001287 

2.386191 

16.612093 

.00000423 

2.386191 

19.324695 

.00000124 

6.612093 

.675305 

.00000113 

6.612093 

3.387907 

.00001813 

6.612093 

7.613809 

.00003255 

6.612093 

12.386191 

.00001158 

6.612093 

16.612093 

.00000354 

6.612093 

19.324695 

.00000100 

9.324695 

.675305 

.00000020 

9.324695 

3.387907 

.00000311 

9.324695 

7.613809 

.00000840 

9.324695 

12.386191 

.00000452 

9.324695 

16.612093 

.00000149 

9.324695 

19.324695 

.00000043 

XX 

YY          ZZ 

TOTAL  DCSE  RATE 

10.000000 

10.000000    5.166667 

.00026862 
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TABLE  23  CCNT. 

TOTAL  DOSE  RATE  RESULTS 

5  PER  CENT  APERTURE 


1.127016 

.675305 

1.127016 

3.387907 

1.127016 

7.613809 

1.127016 

12.386191 

1.127016 

16.612093 

1.127016 

19.324695 

5.000000 

.675305 

5.000000 

3.387907 

5.000000 

7.613809 

5.000000 

12.386191 

5.000000 

16.612093 

5.000000 

19.324695 

8.872983 

.675305 

8.872983 

3.387907 

8.872983 

7.613809 

8.872983 

12.386191 

8.872983 

16.612093 

8.B729B3 

19.324695 

XX 

YY          ZZ 

.000000 

1.000000   13.166667 

X 

Y 

1.127016 

.675305 

1.127016 

3.387907 

1.127016 

7.613809 

1.127016 

12.386191 

1.127016 

16.612093 

1.127016 

19.324695 

5.000000 

.675305 

5.000000 

3.387907 

5.000000 

7.613809 

5.000000 

12.386191 

5.000000 

16.612093 

5.000000 

19.324695 

8.872983 

.675305 

8.872983 

3.387907 

8.872983 

7.613809 

8.872983 

12.386191 

8.872983 

16.612093 

8.872983 

19.324695 

XX 

YY          ZZ 

.000000 

6.000000   13.166667 

PARTIAL  DCSE  RATES 
.00000095 
.00000342 
.00000178 
.00000050 
.00000013 
.00000003 
.00000027 
.00000185 
.00000167 
.00000057 
.00000018 
.00000004 
.00000003 
.00000030 
.00000039 
.00000019 
.00000007 
.00000002 


TOTAL  DOSE  RATE 
.00001248 


PARTIAL  DOSE  RATES 
.00000067 
.00000387 
.00000240 
.00000096 
.00000027 
.00000006 
.00000023 
.00000197 
.00000230 
.00000109 
.00000033 
.00000009 
.00000002 
.00000031 
.00000054 
.00000032 
.00000012 
.00000003 


TOTAL  DOSE  RATE 
.00001568 
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TABLE    23    CCNT. 

3TAL    DCSE    RATE   RESULTS 

5    PER    CENT    APERTURE 


X 

Y 

PARTIAL  DCSE  RATES 

1.127016 

.675305 

.00000042 

1.127016 

3.387907 

.00000319 

1.127016 

7.613809 

.00000289 

1.127016 

12.386191 

.00000128 

1.127016 

16.612093 

.000000*6 

1.127016 

19.32*695 

.00000012 

5.000000 

.675305 

.00000015 

5.000000 

3.387907 

.00000166 

5.000000 

7.613809 

.00000250 

5.000000 

12.386191 

.000001** 

5.000000 

16.612093 

.0000005* 

5.000000 

19.324695 

.00000015 

8.872983 

.675305 

.00000002 

8.872983 

3.387907 

.00000025 

8.872983 

7.613809 

.00000056 

8.872983 

12.386191 

.000000*3 

8.872983 

16.612093 

.00000019 

8.872983 

19.32*695 

.00000005 

XX 

YY          ZZ 

TOTAL  DCSE  RATE 

.000000 

10.000000   13.166667 

.00001638 

X 

Y 

PARTIAL  DCSE  RATES 

1.127016 

.675305 

.0000002* 

1.127016 

3.387907 

.00000208 

1.127016 

7.613809 

.00000289 

1.127016 

12.386191 

.000001*7 

1.127016 

16.612093 

.00000062 

1.127016 

19.32*695 

.00000018 

5.000000 

.675305 

.00000009 

5.000000 

3.387907 

.00000111 

5.000000 

7.613809 

.00000236 

5.000000 

12.386191 

.00000168 

5.000000 

16.612093 

.00000076 

5.000000 

19.32*695 

.00000023 

8.872983 

.675305 

.00000001 

8.872983 

3.387907 

.00000017 

8.872983 

7.613809 

.000000*8 

8.872983 

12.386191 

.000000*8 

8.872983 

16.612093 

.00000025 

8.872983 

19.32*695 

.00000008 

XX 

YY          ZZ 

TCTAL  DCSE  RATE 

.000000 

1*. 000000   13.166667 

.00001526 
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table  23  ccnt. 

;tal  ocse  rate  results 

5  per  cent  aperture 


X 

Y 

PARTIAL  DOSE  RATES 

.337652 

.675305 

.00000003 

.337652 

3.387907 

.00000038 

.337652 

7.613809 

.00000070 

.337652 

12.386191 

.00000054 

.337652 

16.612093 

.00000024 

.337652 

19.324695 

.00000009 

1.693953 

.675305 

.00000005 

1.693953 

3.387907 

.00000067 

1.693953 

7.613809 

.00000133 

1.693953 

12.386191 

.00000108 

1.693953 

16.612093 

.00000050 

1.693953 

19.324695 

.00000015 

3.806904 

.675305 

.00000003 

3.806904 

3.387907 

.00000049 

3.806904 

7.613809 

.00000116 

3.806904 

12.386191 

.00000108 

3.806904 

16.612093 

.00000056 

3.806904 

19.324695 

.00000019 

6.193095 

.675305 

.00000001 

6.193095 

3.387907 

.00000022 

6.193095 

7.613809 

.00000061 

6.193095 

12.366191 

.00000068 

6.193095 

16.612093 

.00000041 

6.193095 

19.324695 

.00000015 

8.306046 

.675305 

0.00000000 

8.306046 

3.387907 

.00000008 

8.306046 

7.613809 

.00000025 

8.306046 

12.386191 

.00000032 

8.306046 

16.612093 

.00000021 

8.306046 

19.324695 

.00000008 

9.662347 

.675305 

0.00000000 

9.662347 

3.387907 

.00000002 

9.662347 

7.613809 

.00000008 

9.662347 

12.386191 

.00000010 

9.662347 

16.612093 

.00000007 

9.662347 

19.324695 

.00000003 

XX 

YY         ZZ 

TOTAL  DOSE  RATE 

.000000 

19.000000   13.166667 

.00001276 

TABLE    23    CONT . 

TOTAL    DCSE    RATE    RESULTS 

5    PER    CENT    APERTURE 
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9.324695 

.675305 

0.00000000 

9.324695 

3.387907 

.00000003 

9.324695 

7.613809 

.00000007 

9.324695 

12.386191 

.00000006 

9.324695 

16.612093 

.00000003 

9.324695 

19.324695 

.00000001 

•6.612093 

.675305 

.00000001 

•6.612093 

3.387907 

.00000020 

■6.612093 

7.613809 

.00000036 

■6.612093 

12.386191 

.00000024 

■6.612093 

16.612093 

.00000010 

■6.612093 

19.324695 

.00000003 

■2.386191 

.675305 

.00000016 

■2.386191 

3.387907 

.00000130 

■2.386191 

7.613809 

.00000152 

-2.386191 

12.386191 

.00000075 

-2.386191 

16.612093 

.00000026 

-2.386191 

19.324695 

.00000007 

2.386191 

.675305 

.00000026 

2.386191 

3.387907 

.00000227 

2.386191 

7.613809 

.00000232 

2.386191 

12.386191 

.00000105 

2.386191 

16.612093 

.00000037 

2.386191 

19.324695 

.00000009 

6.612093 

.675305 

.00000004 

6.612093 

3.387907 

.00000057 

6.612093 

'7.613809 

.00000099 

6.612093 

12.386191 

.00000061 

6.612093 

16.612093 

.00000024 

6.612093 

19.324695 

.00000006 

9.324695 

.675305 

0.00000000 

9.324695 

3.387907 

.00000011 

9.324695 

7.613809 

.00000025 

9.324695 

12.386191 

.00000019 

9.324695 

16.612093 

.00000008 

9.324695 

19.324695 

.00000002 

XX 

YY          11 

TOTAL  DCSE  RATE 

5.000000 

10.000000   13.166667 

.00001487 
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TABLE    23    CCNT. 

3TAL    DOSE    RATE    RESULTS 

5    PER    CENT    APERTURE 


X 

Y 

PARTIAL  DCSE  RATES 

-9.324695 

.675305 

0.00000000 

-9.324695 

3.387907 

.00000001 

-9.324695 

7.613809 

.00000003 

-9.324695 

12.386191 

.00000003 

-9.324695 

16.612093 

.00000001 

-9.324695 

19.324695 

0.00000000 

-6.612093 

. .675305 

0.00000000 

-6.612093 

3.387907 

.00000009 

-6.612093 

7.613809 

.00000017 

-6.612093 

12.386191 

.00000013 

-6.612093 

16.612093 

.00000006 

-6.612093 

19.324695 

.00000001 

-2.386191 

.675305 

.00000008 

-2.386191 

3.387907 

.00000066 

-2.386191 

7.613809 

.00000077 

-2.386191 

12.386191 

.00000040 

-2.386191 

16.612093 

.00000015 

-2.386191 

19.324695 

.00000004 

2.386191 

.675305 

.00000019 

2.386191 

3.387907 

.00000169 

2.386191 

7.613809 

.00000179 

2.386191 

12.386191 

.00000080 

2.386191 

16.612093 

.00000027 

2.386191 

19.324695 

.00000007 

6.612093 

.675305 

.00000005 

6.612093 

3.387907 

.00000066 

6.612093 

7.613809 

.00000112 

6.612093 

12.386191 

.00000064 

6.612093 

16.612093 

.00000024 

6.612093 

19.324695 

.00000006 

9.324695 

.675305 

.00000001 

9.324695 

3.387907 

.00000015 

9.324695 

7.613809 

.00000032 

9.324695 

12.386191 

.00000023 

9.324695 

16.612093 

.00000010 

9.324695 

19.324695 

.00000002 

XX 

YY          ZZ 

TOTAL  DCSE  RATE 

10.000000 

10.000000   13.166667 

.00001122 
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TABLE  23  CCNT. 
TCTAL  DCSE  RATE  RESULTS 
60  PER  CENT  APERTURE 


X 

Y 

PARTIAL  DCSE  RATES 

1.127016 

.675305 

.00063415 

1.127016 

3.387907 

.00109058 

1.127016 

7.613809 

.00075629 

1.127016 

12.386191 

.00025516 

1.127016 

16.612093 

.00007386 

1.127016 

19.324695 

.00002039 

5.000000 

.675305 

.00081115 

5.000000 

3.387907 

.00137922 

5.000000 

7.613809 

.00074970 

5.000000 

12.386191 

.00027826 

5.000000 

16.612093 

.00009426 

5.000000 

19.324695 

.00002770 

8.872983 

.675305 

.00038830 

8.872983 

3.387907 

.00028342 

8.872983 

7.613809 

.00018394 

8.872983 

12.386191 

.00009314 

8.872983 

16.612093 

.00003885 

8.872983 

19.3 

24695 

.00001258 

XX 

YY 

ZZ 

TCTAL  DCSE  RATE 

.000000 

10.000000 

5.166667 

.00717106 

X 

Y 

PARTIAL  DCSE  RATES 

1.127016 

,t 

.75305 

.00001942 

1.127016 

3.387907 

.00003672 

1.127016 

7.613809 

.00002945 

1.127016 

12.386191 

.00001384 

1.127016 

16.612093 

.00000511 

1.127016 

19.324695 

.00000136 

5.000000 

.675305 

.00002673 

5.000000 

3.387907 

.00004685 

5.000000 

7.613809 

.00003630 

5.000000 

12.386191 

.00001738 

5.000000 

16.612093 

.00000639 

5.000000 

19.324695 

.00000179 

8.872983 

.675305 

.00001067 

8.872983 

3.387907 

.00001269 

8.872983 

7.613809 

.00001112 

8.872963 

12.386191 

.00000609 

8.872983 

16.612093 

.00000243 

8.872983 

19.: 

324695 

.00000071 

XX 

YY 

ZZ 

TCTAL  DCSE  RATE 

.000000 

10.000000 

13.166667 

.00028515 
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APPENDIX  M 

Description  and  Explanation  of  the  IBM- 1620 
Computer  Program  Used  to  Calculate  the  First 
Order  Exponential  Integral 

The  first  and  second  order  exponential  integrals,  Et(x)  and  Eg(x), 
were  encountered  in  the  study  of  the  total  incident  dose  rate  on  the 
ceiling,  eq.(38).  This  appendix  describes  the  subroutine  written  to 
obtain  the  Ej  function,  Subroutine  EKARGT,  EARGT).   Here  ARGT  is  the 
argument  of  the  Zt   function  and  EARGT  is  the  value  of  the  function  for 
this  argument.   Second  order  exponential  integrals  were  obtained  from 
the  recursion  relationship, 

Ea(x)  =  e_X  -  xEiU).  <89> 

Two  different  expressions  were  utilized  to  obtain  Ej^x)  for 
different  arguments  (22).   When  the  argument  of  E1   was  less  than  one, 
the  following  infinite  series  was  utilized. 


Ej/x)  =  -0.57721566  -  lnx  +  x  -  (x  /4)  +  (xa/18) 


(90) 


The  number  of  terms  considered  was  determined  by  requiring  that  the  ratio 
of  the  absolute  value  of  the  last  term  to  the  complete  series  be  less  than 
a  specified  value.  This  value  was  set  at  1  x  10"8  in  this  subroutine.  The 
Ei  function  for  values  of  the  argument  greater  than  or  equal  to  one  (26) 
is  given  by  the  expression, 

StU)  =  (e'X/x){ao  +  aix+asx2  +  flgX^x4! 

(91) 

x{b     +  bix  +  bflX2  +  b3x3  +  x4l 
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where 

a     =  0.26777373  b     =   3.9584969 

o  ° 

at  =  8.6347609  bx  =    21.099653 

ag  =    18.05901?  bE  =    25.632956 

a3  =   8.5733287  b3  =   9.5733223 

Eq.(91)   is  accurate  to  within  the   limitations  of   the  computer. 

The   program  printout  of  this  subroutine   is  as  follows: 


El   SUBROUTINE*    3/16/63   BY    J.A.BARAN 
SUBROUTINE   El (ARGT .EARGH) 
IFIARGT-1.)    730,    729,    729 

729  EARGH    =    (0.26777373    +    (B.6347609*ARGT )    +    ( 18.059017»ARGT*ARGT )  +  < 
18.5733287»<ARGT»*3I)    +    <ARGT**4)>    /    < ( EXPFI ARGT) )    *    ARGT    *    (3.9584 
1969    +    (21.099653    *   ARGT)    +    (25.632956    *   ARGT    »   AR6TI    +    (9.5733223 

1    *    (ARGT    *   ARGT    *   ARGT))    +    (ARGT**4I)I 
00   TO   765 

730  EARGH  »-0. 57721566-LCGF (ARGT )+ARGT-( (ARGT**2 1/4. )+( 1 ARGT*»3)/ 
118.) 

QFACT=24 

Q-4 
740  ERE1-I (ARGT**Q)/(OFACT*0)) /EARGH 

IFIERE1-1.E-5I  765,750,750 
750  N=Q 

EARGH   -EARGH   +(  (-1. (*• (N+l )l«( ( ARGT*«QI /(QFACT*Q>  I 

Q*Q+l. 

QFACT«QFACT*0 

GO  TO  740 
765  RETURN 

END 
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APPENDIX  N 
Protection  Factor  of  the  KSU  Blockhouse 

The  protection  factor,  P.,  of  the  KSU  blockhouse  illustrated  in 
Figure  1  can  be  obtained  by  utilizing  the  methodology  and  design 
curves  of  reference  2.  The  protection  factor  is  the  coefficient  which, 
when  multiplied  by  the  dose  rate  in  a  protected  area  (shelter  area),  will 
equal  the  dose  rate  which  would  be  received  by  a  detector  located  at  the 
standard  unprotected  position  three  feet  above  the  center  of  a  smooth, 
uniformly  contaminated  area  of  infinite  extent.   Reference  2  utilizes  a 
series  of  design  curves  to  obtain  reduction  factors  (inverse  of  protection 
factors).  The  reduction  factor  in  this  thesis  for  a  given  detector 
position  would  be  merely  the  dose  rate  divided  by  D  . 

The  protection  factor  of  the  KSU  blockhouse  with  no  apertures  was 
experimentally  measured  (A)  to  be  5.7  at  about  three  feet  above  the  center 
of  the  first  floor  and  370  at  three  feet  above  the  center  of  the  basement 
floor.  The  results  obtained  (4)  utilizing  Reference  2  are  6.8  for  the 
first  floor  and  1000  for  the  basement.  With  an  aperture  in  a  wall,  the 
ground  contribution  through  that  portion  of  the  wall  which  is  actually 
occupied  by  the  windows  but  is  assumed  to  be  solid  is  subtracted  from  the 
ground  contribution  through  the  wall  assuming  it  has  no  windows  (2).  This 
subtraction  yields  the  ground  contribution  through  that  portion  of  the  wall 
not  occupied  by  windows.  The  skyshine  contribution  through  the  windows 
themselves  are  next  added  to  this  quantity.   Although  this  technique  can 
be  followed  straightforwardly,  it  is  rather  laborious  and  does  not  give 
a  very  good  physical  picture  of  what  is  actually  going  on. 

In  contrast  to  this,  an  "Equivalent  Building  Method"  developed  by 
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LeDoux  (24)  Rives  a  very  good  feel  for  the  effect  of  windows  In  walls. 
The  ratio  of  total  window  area  to  total  wall  area  is  first  calculated. 
This  ratio  is  called  the  aperture  fraction.  The  detector  is  assumed 
to  be  at  the  sill  height  of  the  window.   An  equivalent  wall  mass  thickness 
is  obtained  graphically  which  corrects  for  the  effect  of  the  aperture. 
This  equivalent  wall  mass  thickness  is  mainly  a  function  of  the  actual 
wall  mass  thickness,  the  aperture  fraction  and  the  structure  area.  The 
experimentally  measured  wall  thickness  for  the  KSU  blockhouse  is  69  pounds 
per  square  foot  (psf),  The  curves  of  reference  (24)  indicate  that  an 
aperture  fraction  of  0.6  for  this  structure  would  result  in  an  equivalent 
mass  thickness  of  about  61  psf.  That  is,  removing  607.  of  the  wall  above 
the  detector  location  results  in  a  decrease  in  wall  mass  thickness  by  only 
about  127o.  This  result  is  indicative  not  only  of  the  small  proportion  of 
radiation  incident  on  the  detector  from  skyshine,  but  also  of  the  fact  that 
radiation  penetrating  walls  of  such  low  mass  thicknesses  are  so  lowered  in 
enargy  that  the  wall  attenuation  is  nearly  overcome  by  the  higher  attenuation 
coefficients  of  the  transmitted  radiation. 

The  protection  factors  in  the  KSU  blockhouse  with  a  0.6  aperture 
fraction  above  the  level  of  the  detector  would  therefore  be  decreased 
by  approximately  20%  to  about  300  at  the  central  3'  level  in  the  basement 
and  about  4.7  at  the  central  3'  level  on  the  first  floor. 
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ABSTRACT 

The  theory  of  the  penetration  of  fallout  gamma  radiation  into 
structures  has  been  extensively  studied  and  formulated  in  the  past  few 
years.   This  monograph  considers  one  aspect  of  this  theory  which  has 
not  been  investigated  —  the  contribution  of  radiation  dose  rate  in  a 
protective  structure  resulting  from  fallout  radiation  entering  the 
structure  through  apertures  in  vertical  walls  and  reflecting  off  the 
ceiling  of  the  structure.   This  problem  is  known  »5  the  "ceiling  shine" 
problem. 

FORTRAN  II  digital  computer  programs  are  written  wheriby  the 
differential  and  total  (incident  and  reflected)  aperture-col llmated, 
dose  rate  contributions  at  the  ceiling  of  an  idealized  concrete  structure 
are  determined.   A  program  was  also  written  for  the  aperture-col limated, 
celling  scattered  dose  rate  at  any  point  in  the  structure.   Results  are 
graphically  presented  for  the  case  of  the  concrete  blockhouse  presently 
erected  at  the  Kansas  State  University  Nuclear  Engineering  Shielding 
Facility  (a  20'  x  20'  x  8'  structure  with  basement  and  a  window  centered 
horizontally  In  one  wall).   This  window  covers  approximately  5%  of  the 
area  of  one  wall. 

The  average  total  dose  rate  albedo  of  the  concrete  blockhouse  ceil- 
ing for  Incident  cobalt-60  gamma  photons  was  determined  from  the  derived 
differential  dose  rate  albedo  to  be  fourteen  per  cent.  The  window- 
colllmated  radiation  Incident  on  the  ceiling  was  just  under  one  per  cent 
of  the  dose  rate  outside  the  structure  at  the  standard  position  three  feet 
above  the  contaminated  plane.   Approximately  one  tenth  of  one  per  cent  of 
this  outside  radiation  was  thus  reflected  at  a  given  celling  point. 


The  total  dose  rate  from  this  window-collimated,  ceiling  scattered 
radiation  was  determined  for  tvo  traverses  along  the  blockhouse  center- 
lines  for  the  detector  positioned  three  feet  above  the  first  floor  and 
three  feet  above  the  basement  floor.   These  window-collimated,  celling 
scattered  dose  rates  were  compared  with  the  experimental  total  dose 
rates  received  by  the  detector  in  the  blockhouse  surrounded  by  an 
infinite  plane  field  of  cobalt-60  contamination.   The  wlndow-colllmated, 
ceiling  scattered  dose  rates  for  the  above  described  blockhouse  with  a 
five  per  cent  aperture  In  each  of  the  four  walls  were  approximately  one 
per  cent  of  the  total  on  the  first  floor  and  about  two  per  cent  of  the 
total  in  the  basement.   When  the  window  was  increased  in  size  to  cover 
sixty  per  cent  of  the  wall  area  with  its  lower  edge  higher  above  the 
ground  than  the  detector  position,  the  wlndow-colllmated,  ceiling 
scattered  radiation  was  about  twelve  per  cent  of  the  total  on  the  first 
floor  and  about  twenty-six  per  cent  of  the  total  In  the  basement. 


